AoC 2025, day 1, part 1 (dc)

# Command: tr 'LR' '_ ' <input | dc -fdc-p1.dc

0                   # count
[r1+r] sP           # inc count macro

50
?                   # move pos count
[
    +A0% d0=P       # move = (move + pos) % 100; count++ if 0
    ? z2<M
] dsMx

[Part 1: ]nrp