PWC #236, Task 2
1234567891011121314151617181920
# URL: https://theweeklychallenge.org/blog/perl-weekly-challenge-236/#TASK2
my @ints = $*IN.words;
my %remain is SetHash = |@ints;
my @loops;
while %remain {
my @cache;
my $i = %remain.keys.min;
repeat {
$i = @ints[$i];
@cache.grep($i) ?? last() !! @cache.push($i);
} while True;
@loops.push(@cache);
%remain.unset($_) for @cache;
}
put +@loops;
Raku
INFO