Problem: Strings in Strings

Code: Strings+in+Strings/darrenks_1640285972

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)

? (if/else) 
    `* (product) 
        ! (zip with) 
            ; (let) -->let( A ) 
                % (split (remove empties)) 
                    @ (= fstLine) 
                    ~ (auto = words) 
            >> (tail) <--arg( B ) 
                @ (= A) 
            ~ (zipop: by) 
            - (subtract) <--arg( D C ) 
                , (length) 
                    % (split (remove empties)) 
                        @ (= C) 
                        $ (= D) 
                ~ (auto = 1) 
    "YES" (string) <--arg( E ) 
    "NO" (string)