diff options
| -rw-r--r-- | challenge-030/dave-cross/perl5/ch-2.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/challenge-030/dave-cross/perl5/ch-2.pl b/challenge-030/dave-cross/perl5/ch-2.pl index bc1e250f83..fce3b840de 100644 --- a/challenge-030/dave-cross/perl5/ch-2.pl +++ b/challenge-030/dave-cross/perl5/ch-2.pl @@ -21,9 +21,11 @@ for my $x (1 .. $max) { sub valid { state $seen; - return if $seen->{join ',', sort { $a <=> $b} @_}; + @_ = sort { $a <=> $b } @_; + + return if $seen->{join ',', @_}; return unless sum(@_) == 12; return unless grep { ! ($_ % 2) } @_; - $seen->{join ',', sort { $a <=> $b} @_} = 1; + $seen->{join ',', sort @_} = 1; return 1; } |