AoC 2023, day 8 part 1 (dc)

?
z dsn                       # i = #dirs (store in n)
[
    1-                      # i--
    d3R r:d                 # dirs(i) = top (L=4C | R=52)
    z1<L
] dsLx

# Make hash number from top-characters
[
    0r                      # stack: ... top acc i
    [
        r256* 3R+           # ... next i acc*100+top
        r1- d0<I            # i--
    ] dsIx
    +                       # clear i (+0)
] sN

# stack: 0
??
[
    6lNx _4R 3lNx :h        # hash(label) = (right:left)
    ? z1<L
] dsLx

[r] sr

# stack: 0
16i
414141                      # steps=0 label=AAA
[
    rd ln%;d                # label steps (L|R)
    3R;h                    # steps (L|R) hash(label)
    10 6^~                  # steps (L|R) right left
    3R 4C=rs.               # rot if L, scrap top; steps label=(left|right)
    r1+                     # steps++
    r d5A5A5A!=M            # quit at ZZZ
] dsMx

[Part 1: ]nrp