AoC 2023, day 11

Run Settings
Language	Raku
Language Version
Run Command

1
2
3
4
5
6
7
8
9
10
11
unit sub MAIN(
    Str:D $f where *.IO.e = 'input.txt',
    UInt:D $ex = 1_000_000
);
sub solve($f, $ex) {
    my @universe is Array = $f.IO.lines.map(*.comb.Array);
    my @galaxies = (^+@universe X ^+@universe[0]).map({ .Array if @universe[.[0];.[1]] eq '#' });
    my @empty-rows = (^+@universe).grep({    $_ != @galaxies.map(*[0]).any });
    my @empty-cols = (^+@universe[0]).grep({ $_ != @galaxies.map(*[1]).any });
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Editor Settings
Theme
Key bindings
Full width
Lines	10

Snippet Metadata
Owner	seaker
Created	1 year ago
Modified	1 year ago
Visibility	Public