From b167d386695f640eef4e85271195a90601ae19a9 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 14 Nov 2022 17:49:14 +0000
Subject: Cleanup

---
 challenge-191/perlboy1967/perl/ch-2.pl | 5 +++--
 1 file 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++;
-- 
cgit