Problem: Back and forth

Code: Back+and+forth/tails_1645683363

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)

/ (foldr) -->let( J ) 
    \ (reverse) 
        `/ (chunks of) 
            ~ (auto = 2) 
            % (split (remove empties)) 
                ;_ (= allInput) 
                ~ (auto = words) 
    ~ (tuple) 
        % (split (remove empties)) 
            "" (string) 
            ~ (auto = words) 
        0 (integer) 
    (implicit tuple) <--arg( C B A ) 
        : (append) 
            @ (= B) 
            `: (list of 2 lists) 
                & (justify) 
                    " " (string) 
                    ; (save) -->let( F ) 
                        + (add) 
                            , (length) 
                                / (foldr1) 
                                    $ (= C) 
                                    $ (= E) <--arg( E D ) 
                            _ (= A) 
                    / (foldr1) 
                        @ (= C) 
                        $ (= H) <--arg( H G ) 
                & (justify) 
                    " " (string) 
                    $ (= F) 
                    \ (reverse) 
                        ; (save) -->let( I ) 
                            =~ (subscript nowrap) 
                                2 (integer) 
                                @ (= C) 
        - (subtract) 
            @ (= F) 
            , (length) 
                (implicit arg = I)