diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-11-14 17:49:14 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-11-14 17:49:14 +0000 |
| commit | b167d386695f640eef4e85271195a90601ae19a9 (patch) | |
| tree | a120efb25f7ae5050f5cb5be1aaf150262670576 | |
| parent | 75cb8f3e380542635f86f5607c8680df788e7f5d (diff) | |
| download | perlweeklychallenge-club-b167d386695f640eef4e85271195a90601ae19a9.tar.gz perlweeklychallenge-club-b167d386695f640eef4e85271195a90601ae19a9.tar.bz2 perlweeklychallenge-club-b167d386695f640eef4e85271195a90601ae19a9.zip | |
Cleanup
| -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++; |