diff options
| -rw-r--r-- | challenge-336/kjetillll/perl/ch-1.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-336/kjetillll/perl/ch-1.pl b/challenge-336/kjetillll/perl/ch-1.pl index 7b52f4e3a5..ef9198436e 100644 --- a/challenge-336/kjetillll/perl/ch-1.pl +++ b/challenge-336/kjetillll/perl/ch-1.pl @@ -3,9 +3,9 @@ use v5.10; use strict; use warnings; use List::Util qw( uniq ); use Math::Prime: sub f { my @a = sort { $a <=> $b } @_; for my $size ( uniq factor 0+@a ){ - my @g = @a; - uniq( splice @g, 0, $size ) == 1 or next while @g; - return 1 + my @g = @a; + uniq( splice @g, 0, $size ) == 1 or next while @g; + return 1 } return 0 } |