Problem: Decimation

Code: Decimation/tails_1645408270

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| filter[[chr]]
** 2`\ special scans[[chr]]
*** 3;_ = allInput[chr]
*** 3: foldop: consnull
** 2+ addintA:[chr]
*** 3% modulusint
**** 4, lengthint
***** 5+ concat[chr]
****** 6% split (remove empties)[[chr]]
******* 7$ = A[chr]
******* 7"\n" string[chr]
**** 410 integerint
*** 3/ divideint
**** 410 integerint
**** 4/ foldr1chr
***** 5$ = A[chr]
***** 5@ = BchrC:chr B:chr
* 1/ foldr1chrE:[chr] D:[chr]
** 2$ = E[chr]
** 2@ = FchrG:chr F:chr