Code: Iterative+Root/tails+%28whio%29_1739333918
Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00
* (join):[chr] 
    "," (string):[chr] 
    : (append):[[chr]] 
        ; (save):[[chr]] -->let( G:[[chr]] ) 
            `$ (uniq):[[chr]] 
                >> (tail):[[chr]] 
                    . (map):[[chr]] 
                        `. (iterate while uniq):[int] 
                            * (multiply):int 
                                + (sum):int 
                                    `) (swapped uncons):[int] -->let( B:int ) 
                                        `) (swapped uncons):[int] -->let( A:int ) 
                                            _ (= ints):[int] 
                                ; (save):int -->let( C:int ) 
                                    ^ (pow):int 
                                        ~ (auto = 10):auto 
                                        4 (integer):int 
                            / (divide):int <--arg( D:int ) 
                                + (add):int 
                                    / (divide):int 
                                        * (multiply):int 
                                            ^ (pow):int 
                                                @ (= C):int 
                                                _ (= B):int 
                                            ;$ (= A):int 
                                        ^ (pow):int 
                                            $ (= D):int 
                                            ; (save):int -->let( E:int ) 
                                                - (subtract):int 
                                                    _ (= B):int 
                                                    ~ (auto = 1):auto 
                                    * (multiply):int 
                                        @ (= D):int 
                                        $ (= E):int 
                                ;$ (= B):int 
                        \ (reverse):[chr] <--arg( F:int ) 
                            * (join):[chr] 
                                "." (string):[chr] 
                                `/ (chunks of):[[chr]] 
                                    3 (integer):int 
                                    >> (tail):[chr] 
                                        \ (reverse):[chr] 
                                            `p (int to str):[chr] 
                                                + (add):int 
                                                    5 (integer):int 
                                                    $ (= F):int 
        / (foldr1):[chr] 
            $ (= G):[[chr]] 
            @ (= H):[chr] <--arg( I:[chr] H:[chr] )
Back to the index