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; letintC:[chr] D:int
**** 4r read str at baseint
***** 5@ = B[chr]
***** 50 integerint
** 2`. iterate while uniq[int,int]E:int
*** 3~ tupleint,int
**** 40 integerint
**** 4@ = Dint
*** 3implicit tupleint,intG:int F:int
**** 4? if/elseintM:int
***** 5- subtractint
****** 6^ powint
******* 7@ = Fint
******* 7~ auto = 2auto
****** 6~ auto = 1auto
***** 5~ tupleint,intH:int
****** 6/ divideint
******* 7;@ = Dint
******* 7; letintL:int
******** 8/ foldr1int
********* 9| filter[int]
********** 10>> tail[int]
*********** 11, range from 1[int]
************ 12~ auto = infinityauto
********** 10~ notnull
********** 10% modulusintI:int
*********** 11;$ = Fint
*********** 11$ = Iint
********* 9$ = KintK:int J:int
****** 6/ divideint
******* 7;$ = Fint
******* 7$ = Lint
***** 5~ defaultnull
**** 4$ = Mint
** 2`D to base from data[chr]
*** 3-75 to base from data argnull

Back to the index