Re: Just chipping in...

On 15/11/2007, Jasper <[email protected]> wrote:

>
> \$h{$_='()'x$ARGV[0]};
> \$h{$_,reverse}while s/\)(.*?)\(/$1()/;
> print for sort keys %h;

Phil points out that reverse isn't actually a mirror (and scalar
reverse makes this horribly incorrect), so it turns out I have to do
this in two passes.

\$h{$_='()'x $ARGV[0]};
\$h{$_}while s/\)(.*?)\(/$1()/;
$_='()'x pop;
\$h{$_}while s/(.*)\)(.*?)\(/$1()$2/;
print for sort keys %h;

Hopefully someone can fix that :D

-- 
Jasper