Problem: Compound interest

Code: Compound+interest/tails_1643364497

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< take[int]
* 1$ = fstIntint
* 1`. iterate while uniq[int]
** 2;$ = sndIntint
** 2+ addintA:int
*** 3/ divideint
**** 4* multiplyint
***** 5/ foldr1int
****** 6;$ = ints[int]
****** 6@ = BintC:int B:int
***** 5$ = Aint
**** 4^ powint
***** 5~ auto = 10auto
***** 5~ auto = 2auto
*** 3implicit arg = Aint