diff options
| -rwxr-xr-x | challenge-191/perlboy1967/perl/ch-2.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-191/perlboy1967/perl/ch-2.pl b/challenge-191/perlboy1967/perl/ch-2.pl index ab62c2b6ec..43a76f2a7b 100755 --- a/challenge-191/perlboy1967/perl/ch-2.pl +++ b/challenge-191/perlboy1967/perl/ch-2.pl @@ -33,6 +33,7 @@ use List::MoreUtils qw(firstidx); sub isCuteEntry ($$) { state $c; + my $idx = $_[0].'|'.$_[1]; return $c->{$idx} if defined $c->{$idx}; @@ -44,8 +45,8 @@ sub isCuteEntry ($$) { sub nCuteLists { - my $n = 0; - my $m = 0; + my ($n,$m) = (0,0); + my $p = Algorithm::Permute->new([1 .. $_[0]]); while (my @l = $p->next) { $m++; |