Re: Solutions and Discussion for Perl Quiz of the Week #23

On Sat, Sep 11, 2004 at 01:24:07AM +0200, demerphq <[email protected]> wrote:
> > The following programmers sent solutions to "regular" Perl Quiz #23 to
> > the perl-qotw-discuss mailing list:
> 
> Erm, forgive me for being picky, but i sent two solutions through for
> this quiz, im wondering why they werent included in your review.
> 
> Yves

I suspect it has something to do with this:

$ diff -u yvesqotwr23.pl{.orig,}
--- yvesqotwr23.pl.orig 2004-09-11 22:55:54.000000000 -0700
+++ yvesqotwr23.pl      2004-09-11 23:04:57.867027200 -0700
@@ -62,10 +62,11 @@
     }
 } else {
     my ($n,$ver)=@ARGV;
+    $, = $\ = "\n";
     if ($ver and $ver=~/int/) {
-      parens_permute_int();
+      print parens_permute_int($n);
     } else {
-      parens_permute_rex();
+      print parens_permute_rex($n);
     }
 }

BTW, I found the use of $N to be somewhat contextually confusing...
I kept looking for the getNode :)