AoC 2022, day 10
123456789101112
my @mem = 1;
for $*IN.lines».words -> @ins {
@mem.push(@mem.tail);
@mem.push(@mem.tail + @ins[1].Int) if @ins[0] eq 'addx';
}
my @ndx = 19, 59 ... 219;
put 'part 1: ', @ndx.map({ @mem[$_] * ($_ + 1) }).sum;
put "part 2: \n", (^6).map(-> \row {
(^40).map(-> \col { abs(col - @mem[row * 40 + col]) ≤ 1 ?? '#' !! ' ' }).join
}).join("\n");
Raku
INFO