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