From ac125c46942d80af5375ab88ae36263dca611a9a Mon Sep 17 00:00:00 2001
From: KjetilS <kjetilskotheim@gmail.com>
Date: Mon, 25 Aug 2025 19:56:00 +0200
Subject: https://theweeklychallenge.org/blog/perl-weekly-challenge-336/

---
 challenge-336/kjetillll/perl/ch-1.pl | 6 +++---
 1 file 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
 }
-- 
cgit