Problem: Arithmetic derivative

Code: Arithmetic+derivative/tails_1696492229

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% split (remove empties)[[chr]]
** 2@ = fstLine[chr]
** 2~ auto = wordsauto
* 1? if/else[chr]B:[chr] A:[chr]
** 2== equal?int
*** 3$ = B[chr]
*** 3; saveintC:[chr] D:int
**** 4`r read intint
***** 5@ = B[chr]
** 2+ sumintE:int N:[int]
*** 3`. iterate while uniq[int,int]
**** 4~ tupleint,int
***** 50 integerint
***** 5@ = Dint
**** 4implicit tupleint,intG:int F:int
***** 5? if/elseintM:int
****** 6- subtractint
******* 7^ powint
******** 8@ = Fint
******** 8~ auto = 2auto
******* 7~ auto = 1auto
****** 6~ tupleint,intH:int
******* 7/ divideint
******** 8;@ = Dint
******** 8; saveintL:int
********* 9/ foldr1int
********** 10| filter[int]
*********** 11>> tail[int]
************ 12, range from 1[int]
************* 13~ auto = infinityauto
*********** 11~ notnull
*********** 11% modulusintI:int
************ 12;$ = Fint
************ 12$ = Iint
********** 10$ = KintK:int J:int
******* 7/ divideint
******** 8;$ = Fint
******** 8$ = Lint
****** 6~ defaultnull
***** 5$ = Mint
** 2`D to base from data[chr]
*** 3-75 to base from data argnull