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