Problem: The B Programming Language

Code: The+B+Programming+Language/tails_1644306412

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)

/ (foldr1) 
    / (foldr) 
        ; (save) -->let( A ) 
            % (split (remove empties)) 
                @ (= fstLine) 
                ~ (auto = words) 
        _ (= A) <--arg( C B ) 
        ? (if/else) <--arg( E D ) 
            - (subtract) 
                3 (integer) 
                , (length) 
                    $ (= E) 
            : (append) <--arg( F ) 
                = (subscript (wrapped)) 
                    * (multiply) 
                        , (length) 
                            / (foldr1) 
                                _ (= D) 
                                $ (= H) <--arg( H G ) 
                        ~ (auto = 2) 
                    `< (take also drop) -->let( I ) 
                        5 (integer) 
                        _ (= D) 
                $ (= I) 
            : (append) 
                @ (= E) 
                _ (= D) 
    (implicit arg = K) <--arg( K J )