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):[chr] 
    `* (product):int 
        ! (zip with):[int] 
            ; (let):[[chr]] -->let( A:[[chr]] ) 
                % (split (remove empties)):[[chr]] 
                    @ (= fstLine):[chr] 
                    ~ (auto = words):auto 
            >> (tail):[[chr]] <--arg( B:[chr] ) 
                @ (= A):[[chr]] 
            ~ (zipop: by):null 
            - (subtract):int <--arg( D:[chr] C:[chr] ) 
                , (length):int 
                    % (split (remove empties)):[[chr]] 
                        @ (= C):[chr] 
                        $ (= D):[chr] 
                ~ (auto = 1):auto 
    "YES" (string):[chr] <--arg( E:int ) 
    "NO" (string):[chr]