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)

< (take):[int] 
    $ (= fstInt):int 
    `. (iterate while uniq):[int] 
        ;$ (= sndInt):int 
        + (add):int <--arg( A:int ) 
            / (divide):int 
                * (multiply):int 
                    / (foldr1):int 
                        ;$ (= ints):[int] 
                        @ (= B):int <--arg( C:int B:int ) 
                    $ (= A):int 
                ^ (pow):int 
                    ~ (auto = 10):auto 
                    ~ (auto = 2):auto 
            (implicit arg = A):int