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