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