Problem: Digit depth

Code: Digit+depth/tails_1644225874

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
0implicit map[chr]
* 1`\ special scans[[chr]]
** 2@ = fstLine[chr]
** 2; foldop: rev consnull
* 1- subtractchrB:[chr] A:[chr]
** 2; savechrE:chr
*** 3/ foldr1chr
**** 4$ = B[chr]
**** 4$ = DchrD:chr C:chr
** 2* multiplyint
*** 3+ sumint
**** 4. map[int]
***** 5@ = B[chr]
***** 5- subtractintF:chr
****** 6% modulusint
******* 7+ addchr
******** 8$ = Fchr
******** 8~ auto = 1auto
******* 73 integerint
****** 6~ auto = 1auto
*** 3, lengthint
**** 4\ char class[chr]
***** 5$ = Echr
***** 5d isDigitnull