AoC 2024, day 22, part 1 (dc)

# Command: dc -fdc-p1.dc <input

# 24-bit XOR top two on stack
[
    0d                  # (i=bit#) result
    [
        3R4R            # arg2 arg1 i result
        2~ 3R 2~        # bit1 rest1 bit2 rest2
        3R -d*          # bit (a-b)^2: sum rest1 rest2 i result
        4R d 2r^ 3R*    # (bit<<i) i rest1 rest2 result
        5R+             # (result+=bit) i rest1 rest2
        r1+ d 24>L      # i++, loop until i == 3
    ] dsLx 3R4R++s,     # 3 result junk2 junk1
] s^

?
[
    [num: ]np
    2000                    # i num
    [
        r                   # num i
        d 64* l^x           # num = (64*num) ^ num
        d 32/ l^x           # num = (num/32) ^ num
        d 2048* l^x         # num = (2048*num) ^ num

        r1- d0<I
    ] dsIx +

    lp+sp

    ? z0<M
] dsMx

[Part 1: ]n lpp