AoC2024, day 2

# 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))
}