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)

. (map) 
    `) (swapped uncons) -->let( B ) 
        `) (swapped uncons) -->let( A ) 
            _ (= ints) 
    * (join) <--arg( C ) 
        "," (string) 
        : (append) 
            ; (save) -->let( H ) 
                `$ (uniq) 
                    >> (tail) 
                        . (map) 
                            `. (iterate while uniq) 
                                * (multiply) 
                                    ; (save) -->let( D ) 
                                        ^ (pow) 
                                            ~ (auto = 10) 
                                            4 (integer) 
                                    @ (= C) 
                                / (divide) <--arg( E ) 
                                    + (add) 
                                        / (divide) 
                                            * (multiply) 
                                                ^ (pow) 
                                                    @ (= D) 
                                                    ;$ (= B) 
                                                ;@ (= A) 
                                            ^ (pow) 
                                                $ (= E) 
                                                ; (save) -->let( F ) 
                                                    - (subtract) 
                                                        ;$ (= B) 
                                                        ~ (auto = 1) 
                                        * (multiply) 
                                            @ (= E) 
                                            $ (= F) 
                                    ;@ (= B) 
                            : (append) <--arg( G ) 
                                : (append) 
                                    / (divide) 
                                        $ (= G) 
                                        _ (= D) 
                                    "." (string) 
                                > (drop) 
                                    -3 (integer) 
                                    << (init) 
                                        `p (int to str) 
                                            + (add) 
                                                5 (integer) 
                                                $ (= G) 
            / (foldr1) 
                $ (= H) 
                @ (= I) <--arg( J I )