Problem: I like unit fractions

Code: I+like+unit+fractions/tails_1710840436

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) 
    (implicit string concatenation) 
        (implicit string concatenation) 
            < (take) 
                2 (integer) 
                @ (= fstLine) 
            / (divide) 
                ; (let) -->let( A ) 
                    ^ (pow) 
                        2 (integer) 
                        63 (integer) 
                = (subscript (wrapped)) 
                    = (subscript (wrapped)) 
                        % (modulus) 
                            / (foldr1) 
                                = (subscript (wrapped)) 
                                    2 (integer) 
                                    ; (let) -->let( B ) 
                                        % (split (remove empties)) 
                                            _ (= fstLine) 
                                            ~ (auto = words) 
                                $ (= D) <--arg( D C ) 
                            21 (integer) 
                        : (append) 
                            + (add) 
                                ; (let) -->let( I ) 
                                    / (foldr1) 
                                        ; (let) -->let( F ) 
                                            . (map) 
                                                $ (= B) 
                                                / (divide) <--arg( E ) 
                                                    _ (= A) 
                                                    r (read str at base) 
                                                        >> (tail) 
                                                            $ (= E) 
                                                        242 (integer) 
                                        @ (= G) <--arg( H G ) 
                                @ (= F) 
                            : (append) 
                                >> (tail) 
                                    @ (= F) 
                                $ (= I) 
                    : (append) 
                        | (filter) 
                            @ (= F) 
                            $ (= J) <--arg( J ) 
                        : (append) 
                            `@ (from base) 
                                $ (= I) 
                                @ (= F) 
                            << (init) 
                                @ (= F) 
        $ (= I) 
    ~ (tuple) 
        (implicit arg = I) 
        (implicit arg = I) 

Back to the index