Problem: Iterative Root

Code: Iterative+Root/whio_1739293739

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. map[[chr]]
* 1`) swapped uncons[int]B:int
** 2`) swapped uncons[int]A:int
*** 3_ = ints[int]
* 1* join[chr]C:int
** 2"," string[chr]
** 2: append[[chr]]
*** 3; save[[chr]]H:[[chr]]
**** 4`$ uniq[[chr]]
***** 5>> tail[[chr]]
****** 6. map[[chr]]
******* 7`. iterate while uniq[int]
******** 8* multiplyint
********* 9; saveintD:int
********** 10^ powint
*********** 11~ auto = 10auto
*********** 114 integerint
********* 9@ = Cint
******** 8/ divideintE:int
********* 9+ addint
********** 10/ divideint
*********** 11* multiplyint
************ 12^ powint
************* 13@ = Dint
************* 13;$ = Bint
************ 12;@ = Aint
*********** 11^ powint
************ 12$ = Eint
************ 12; saveintF:int
************* 13- subtractint
************** 14;$ = Bint
************** 14~ auto = 1auto
********** 10* multiplyint
*********** 11@ = Eint
*********** 11$ = Fint
********* 9;@ = Bint
******* 7: append[chr]G:int
******** 8: append[chr]
********* 9/ divideint
********** 10$ = Gint
********** 10_ = Dint
********* 9"." string[chr]
******** 8> drop[chr]
********* 9-3 integerint
********* 9<< init[chr]
********** 10`p int to str[chr]
*********** 11+ addint
************ 125 integerint
************ 12$ = Gint
*** 3/ foldr1[chr]
**** 4$ = H[[chr]]
**** 4@ = I[chr]J:[chr] I:[chr]

Back to the index