diff options
| author | Dave Cross <d.cross@fairfx.com> | 2019-10-14 09:46:05 +0100 |
|---|---|---|
| committer | Dave Cross <d.cross@fairfx.com> | 2019-10-14 09:46:05 +0100 |
| commit | 948a701efdfdbedf181a6825825cc60cac8bb6c1 (patch) | |
| tree | 11f6e61dd8cb7595b275148baa9a32c5ab739378 | |
| parent | 3eb0e9bb142afaebcd86f00bdc62795568d48bb5 (diff) | |
| download | perlweeklychallenge-club-948a701efdfdbedf181a6825825cc60cac8bb6c1.tar.gz perlweeklychallenge-club-948a701efdfdbedf181a6825825cc60cac8bb6c1.tar.bz2 perlweeklychallenge-club-948a701efdfdbedf181a6825825cc60cac8bb6c1.zip | |
Only sort once
| -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; } |