HHC 2022 - Programming Contest - no responses until after 6am Monday 6am CENTRAL

[Gerson W. Barbosa]

Code:


DIR
  HHC
  « R→I -105 CF 0 SWAP
    DO H ∑LIST OBJ→ SWAP ∑LIST OBJ→ + SWAP 1 + SWAP DUP H
    UNTIL == PICK3 50 ≥ OR
    END OVER 50 == { DROP2 0 DUP } IFT
  »
  H
  « →STR { "0" } 1 PICK3 SIZE
    START OVER HEAD + SWAP TAIL SWAP
    NEXT NIP "0" OVER TAIL REVLIST +
  »
END