Problem: Growing Vines

Code: Growing+Vines/tails_1647241322

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)

< (take) 
    10 (integer) 
    `. (iterate while uniq) 
        @ (= fstLine) 
        . (map) <--arg( A ) 
            << (init) 
                `\ (special scans) 
                    : (append) 
                        " " (string) 
                        $ (= A) 
                    ; (foldop: rev cons) 
            ? (if/else) <--arg( B ) 
                != (abs diff) 
                    '\\' (char) 
                    ; (save) -->let( D ) 
                        `( (uncons) -->let( C ) 
                            : (append) 
                                $ (= B) 
                                " " (string) 
                ? (if/else) <--arg( E ) 
                    ; (save) -->let( J ) 
                        % (modulus) 
                            ; (save) -->let( I ) 
                                / (foldr1) 
                                    `) (swapped uncons) -->let( F ) 
                                        _ (= C) 
                                    $ (= H) <--arg( H G ) 
                            ~ (auto = 2) 
                    _ (= I) <--arg( K ) 
                    ? (if/else) 
                        / (divide) 
                            _ (= F) 
                            ; (save) -->let( L ) 
                                '|' (char) 
                        @ (= L) <--arg( M ) 
                        ~ (default) 
                ? (if/else) 
                    @ (= J) 
                    @ (= L) <--arg( N ) 
                    (implicit arg = D)