On 15/11/2007, Phil Carmody <[EMAIL PROTECTED]> wrote:
> I saw this on sci.math, and thought "one liner" ;-)
> I even think a DP non-recursive approach should be quite quick.
> Keeping the output in the logical order might cost a few strokes.


First pass:

sub f {
  my($i,$c,@p)[EMAIL PROTECTED];
  $i?
    map{f($i-1,$c+/\(/-/\)/,@p,$_)}!$c?'(':$c-$i?qw{) (}:')':
    print join'',@p
}
f($ARGV[0]*2);

I suppose that will give an undef for 0...

-- 
Jasper

Reply via email to