Problem: Iterative Root

Code: Iterative+Root/tails+%28whio%29_1739333918

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* join[chr]
* 1"," string[chr]
* 1: append[[chr]]
** 2; let[[chr]]G:[[chr]]
*** 3`$ uniq[[chr]]
**** 4>> tail[[chr]]
***** 5. map[[chr]]
****** 6`. iterate while uniq[int]
******* 7* multiplyint
******** 8+ sumint
********* 9`) swapped uncons[int]B:int
********** 10`) swapped uncons[int]A:int
*********** 11_ = ints[int]
******** 8; letintC:int
********* 9^ powint
********** 10~ auto = 10auto
********** 104 integerint
******* 7/ divideintD:int
******** 8+ addint
********* 9/ divideint
********** 10* multiplyint
*********** 11^ powint
************ 12@ = Cint
************ 12_ = Bint
*********** 11;$ = Aint
********** 10^ powint
*********** 11$ = Dint
*********** 11; letintE:int
************ 12- subtractint
************* 13_ = Bint
************* 13~ auto = 1auto
********* 9* multiplyint
********** 10@ = Dint
********** 10$ = Eint
******** 8;$ = Bint
****** 6\ reverse[chr]F:int
******* 7* join[chr]
******** 8"." string[chr]
******** 8`/ chunks of[[chr]]
********* 93 integerint
********* 9>> tail[chr]
********** 10\ reverse[chr]
*********** 11`p int to str[chr]
************ 12+ addint
************* 135 integerint
************* 13$ = Fint
** 2/ foldr1[chr]
*** 3$ = G[[chr]]
*** 3@ = H[chr]I:[chr] H:[chr]

Back to the index