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) 
    =\ (scanl) 
        @ (= fstLine) 
        _ (= fstInt) <--arg( B A ) 
        + (add) <--arg( D C ) 
            - (subtract) 
                % (modulus) 
                    + (add) 
                        $ (= D) 
                        ~ (auto = 1) 
                    3 (integer) 
                ~ (auto = 1) 
            @ (= C) 
    _ (= fstLine) <--arg( E ) 
    ~ (zipop: by) 
    / (foldr1) <--arg( G F ) 
        : (append) 
            \ (char class) 
                @ (= F) 
                D (not.isDigit) 
            (implicit arg = G) 
        (implicit arg = I) <--arg( I H )