AoC 2022, day 14, part 1
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
sub show(@cave, $x-min, $x-max, $y-max) {
for 0..$y-max -> \y0 {
for $x-min..$x-max -> \x0 {
print @cave[y0;x0] // '.';
}
put '';
}
}
my @cave;
my ($x-min, $x-max, $y-max) = ∞, 0, 0;
for $*IN.lines».comb(/\d+/)».Int -> @coords {
for ^(+@coords/2-1) -> \j {
for (@coords[2*j]...@coords[2*j+2]) X (@coords[2*j+1]...@coords[2*j+3]) -> (\x0, \y0) {
@cave[y0;x0] = '#';
$x-min = x0 if x0 < $x-min;
$x-max = x0 if x0 > $x-max;
$y-max = y0 if y0 > $y-max;
}
}
}
my Bool $out-of-range = False;
my $cnt = 0;
while ! $out-of-range {
my $x1 = 500;
my $y1 = 0;
my Bool $cannot-move = False;
repeat {
if !@cave[$y1+1;$x1].defined {
++$y1;
$out-of-range = $y1 > $y-max;
} elsif !@cave[$y1+1;$x1-1].defined {
--$x1; ++$y1;
$out-of-range = $x1 < $x-min || $y1 > $y-max;
} elsif !@cave[$y1+1;$x1+1].defined {
++$x1; ++$y1;
$out-of-range = $x1 > $x-max || $y1 > $y-max;
} else {
$cannot-move = True;
}
} until $cannot-move or $out-of-range;
unless $out-of-range {
@cave[$y1;$x1] = 'o';
++$cnt;
}
}
show(@cave, $x-min, $x-max, $y-max);
put "part 1: ", $cnt;
Raku
INFO