Problem: ZunDokoKiyoshi

Code: ZunDokoKiyoshi/tails_1658467086

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)

+ (concat):[chr] 
    =\ (scanl1):[[chr]] 
        `% (split list (keep empties)):[[chr]] 
            ;@ (= sndLine):[chr] 
            ; (let):[chr] -->let( B:[chr] ) 
                : (append):[chr] 
                    ^ (replicate):[chr] 
                        4 (integer):int 
                        `) (swapped uncons):[chr] -->let( A:chr ) 
                            `$ (uniq):[chr] 
                                ;@ (= sndLine):[chr] 
                    $ (= A):chr 
        : (append):[chr] <--arg( D:[chr] C:[chr] ) 
            : (append):[chr] 
                _ (= B):[chr] 
                "KI-YO-SHI!" (string):[chr] 
            (implicit arg = D):[chr]