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)

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