Advent of Code 2021, Day 11 Solution

Run Settings
Language	Raku
Language Version
Run Command

1
2
3
4
5
6
7
8
9
10
11
sub inc(Array:D $o, Int:D \row, Int:D \col) {
    $o[row;col]++ if 0 ≤ row ≤ 9 && 0 ≤ col ≤ 9 && $o[row;col] != 0;
}
sub flash(Array:D $o, UInt:D \row, UInt:D \col) {
    $o[row;col] = 0;
    ([-1,-1], [-1,0], [-1,1],
     [ 0,-1],         [ 0,1],
     [ 1,-1], [ 1,0], [ 1,1]
    ).map({ inc($o, row + .[0], col + .[1]) });
}
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Editor Settings
Theme
Key bindings
Full width
Lines	10

Snippet Metadata
Owner	seaker
Created	3 years ago
Modified	3 years ago
Visibility	Public