Problem: Shorter Roman Numerals

Code: Shorter+Roman+Numerals/tails_1703134971

Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00

Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)


DepthLitDescTypeArgLet
0| filter[int]
* 1, range from 1[int]
** 23000 integerint
* 1> drop[chr]A:int
** 2+ sumint
*** 3! zip with[int]
**** 4`D to base from data[int]
***** 55 to base from data argnull
**** 4; save[chr]B:int C:[chr]
***** 5`p int to str[chr]
****** 6@ = Aint
**** 4= zipop: subscriptnull
** 2$ = C[chr]