https://theweeklychallenge.org/blog/perl-weekly-challenge-336/

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
 }