diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-11-26 20:34:14 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-11-26 20:34:14 +0800 |
| commit | 0880f9cd033313758d07e32937e6a9cf59fc3fe7 (patch) | |
| tree | 291e225c66211c946982712be62a7fa2472737af | |
| parent | 4d97b516d2a467b863ddc26b3921649e515b8327 (diff) | |
| download | perlweeklychallenge-club-0880f9cd033313758d07e32937e6a9cf59fc3fe7.tar.gz perlweeklychallenge-club-0880f9cd033313758d07e32937e6a9cf59fc3fe7.tar.bz2 perlweeklychallenge-club-0880f9cd033313758d07e32937e6a9cf59fc3fe7.zip | |
more fix ch-2.pl
| -rwxr-xr-x | challenge-192/steve-g-lynn/perl/ch-2.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-192/steve-g-lynn/perl/ch-2.pl b/challenge-192/steve-g-lynn/perl/ch-2.pl index f33219a376..a4a849585f 100755 --- a/challenge-192/steve-g-lynn/perl/ch-2.pl +++ b/challenge-192/steve-g-lynn/perl/ch-2.pl @@ -43,7 +43,6 @@ local *equal_distribution=sub { }; local *is_equal = sub { - local (@list)=@_; (sum map {$_==$tgt} @list)==@list; }; @@ -66,7 +65,7 @@ local *equal_distribution=sub { local $count = 0; while (1) { - &is_equal(@list) && return $count; + &is_equal && return $count; &iterate; } }; |