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]