Problem: Digit depth

Code: Digit+depth/tails_1644225874

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)

(implicit map) 
    `\ (special scans) 
        @ (= fstLine) 
        ; (foldop: rev cons) 
    - (subtract) <--arg( B A ) 
        ; (save) -->let( E ) 
            / (foldr1) 
                $ (= B) 
                $ (= D) <--arg( D C ) 
        * (multiply) 
            + (sum) 
                . (map) 
                    @ (= B) 
                    - (subtract) <--arg( F ) 
                        % (modulus) 
                            + (add) 
                                $ (= F) 
                                ~ (auto = 1) 
                            3 (integer) 
                        ~ (auto = 1) 
            , (length) 
                \ (char class) 
                    $ (= E) 
                    d (isDigit)