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