Problem: Digit depth

Code: Digit+depth/darrenks_1644422075

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)

! (zip with):[chr] 
    =\ (scanl):[int] 
        @ (= fstLine):[chr] 
        _ (= fstInt):int <--arg( B:chr A:chr ) 
        + (add):int <--arg( D:chr C:int ) 
            - (subtract):int 
                % (modulus):int 
                    + (add):chr 
                        $ (= D):chr 
                        ~ (auto = 1):auto 
                    3 (integer):int 
                ~ (auto = 1):auto 
            @ (= C):int 
    _ (= fstLine):[chr] <--arg( E:int ) 
    ~ (zipop: by):null 
    / (foldr1):chr <--arg( G:int F:chr ) 
        : (append):[chr] 
            \ (char class):[chr] 
                @ (= F):chr 
                D (not.isDigit):null 
            (implicit arg = G):int 
        (implicit arg = I):chr <--arg( I:chr H:chr )