AoC2024, day 2
12345678910111213
# https://adventofcode.com/2024/day/2
my ($cnt-p1, $cnt-p2) X= 0;
for $*IN.lines».words -> @a {
++$cnt-p1 if @a.&safe;
++$cnt-p2 if @a.&safe || @a.combinations(+@a-1).map(*.&safe).any;
}
put 'part 1: ', $cnt-p1;
put 'part 2: ', $cnt-p2;
my method safe(*@a : --> Bool:D) {
so -3 ≤ $_ < 0 || 0 < $_ ≤ 3 with all(@a.head(*-1) Z- @a.tail(*-1))
}
Raku
INFO