Problem: Distribute

Code: Distribute/tails_1646313549

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)


(implicit string concatenation):[chr] 
    (implicit string concatenation):[chr] 
        (implicit string concatenation):[chr] 
            (implicit string concatenation):[chr] 
                "(" (string):[chr] 
                ;~ (save fn):[chr] -->let( N:fn([int,int]->[chr]) ) 
                    | (partition):[int,int] -->let( I:[int,int] ) 
                        ! (zip with):[int,int] 
                            _ (= ints):[int] 
                            =\ (scanl):[int] <--arg( A:int ) 
                                ;$ (= ints):[int] 
                                1 (integer):int <--arg( C:int B:int ) 
                                ? (if/else):int <--arg( E:int D:int ) 
                                    @ (= D):int 
                                    - (subtract):int <--arg( F:int ) 
                                        _ (= D):int 
                                        @ (= E):int 
                                    + (add):int 
                                        @ (= D):int 
                                        $ (= E):int 
                            , (zipop: make tuple):null 
                        ~ (par......):null 
                        ~ (...tition):null 
                        @ (= G):int <--arg( H:int G:int ) 
                    * (join):[chr] <--arg( J:[int,int] ) 
                        * (join):[chr] 
                            ; (save):[chr] -->let( K:[chr] ) 
                                "," (string):[chr] 
                            . (map):[int] 
                                @ (= J):[int,int] 
                                $ (= M):int <--arg( M:int L:int ) 
                        `' (transpose):[[chr]] 
                            "[]" (string):[chr] 
            @ (= K):[chr] 
        $ (= N):[chr] 
            _ (= I):[int,int] 
    ")" (string):[chr] 

Back to the index