AoC day 1. Turning left is the same as turning right if you mirror the dial first, right?
use v5.36;<br><br>my $pos = 50;<br>my $tick1 = my $tick2 = 0;<br><br>while (readline) {<br> my ($sign, $mag) = /^([LR])(\d+)$/a or die "bad input";<br> my $flect =<br> $sign eq 'L'<br> ? sub ($n) { -$n % 100 }<br> : sub ($n) { $n };<br> my $vpos = $flect->($pos) + $mag;<br> $tick2 += int($vpos / 100);<br> $pos = $flect->($vpos) % 100<br> or $tick1++;<br>}<br><br>say "$tick1, $tick2";<br>
#
AdventOfCode #
perl