Problem: Digit depth

Code: Digit+depth/darrenks_1644422075

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! zip with[chr]
* 1=\ scanl[int]
** 2@ = fstLine[chr]
** 2_ = fstIntintB:chr A:chr
** 2+ addintD:chr C:int
*** 3- subtractint
**** 4% modulusint
***** 5+ addchr
****** 6$ = Dchr
****** 6~ auto = 1auto
***** 53 integerint
**** 4~ auto = 1auto
*** 3@ = Cint
* 1_ = fstLine[chr]E:int
* 1~ zipop: bynull
* 1/ foldr1chrG:int F:chr
** 2: append[chr]
*** 3\ char class[chr]
**** 4@ = Fchr
**** 4D not.isDigitnull
*** 3implicit arg = Gint
** 2implicit arg = IchrI:chr H:chr