AoC 2022, day 8
| Run Settings | |
|---|---|
| Language | Raku |
| Language Version | |
| Run Command |
| Snippet Metadata | |
|---|---|
| Owner | seaker |
| Created | 2 years ago |
| Modified | 2 years ago |
| Visibility | Public |
my @trees = $*IN.lines.map({ .comb».Int.Array }).Array;
my \rows = +@trees;
my \cols = +@trees[0];
put 'part 1: ',
2 * (rows + cols) - 4 +
(1..^rows-1 X 1..^cols-1).grep(-> ($r,$c) {
@trees[$r;$c] > (
@trees[$r;^$c ].all |
@trees[$r;$c^..cols-1].all |
@trees[^$r; $c].all |
| Editor Settings | |
|---|---|
| Theme | |
| Key bindings | |
| Full width | |
| Lines |