AoC 2023, day 11
1234567891011121314151617181920212223
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 });
@galaxies
.map({ [
.[0] + $ex * [email protected](* < .[0]),
.[1] + $ex * [email protected](* < .[1])
] })
.combinations(2)
.map({ abs(.[0;0] - .[1;0]) + abs(.[0;1] - .[1;1]) })
.sum
}
put 'part 1: ', solve($f, 1);
put 'part 2: ', solve($f, $ex - 1);
Raku
INFO