Problem: check digit of CAS registration number

Code: check+digit+of+CAS+registration+number/tails_1758075840

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)

% (modulus) 
    + (sum) 
        + (concat) 
            `\ (special scans) 
                ! (zip with) 
                    | (filter) 
                        @ (= fstLine) 
                        \ (char class) <--arg( A ) 
                            $ (= A) 
                            d (isDigit) 
                    '0' (char) <--arg( B ) 
                    - (zipop: sub) 
                : (foldop: cons) 
    10 (integer)