Problem: count up digits

Code: count+up+digits/tails_1645093087

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)

\ (reverse):[[chr]] 
    `. (iterate while uniq):[[chr]] 
        @ (= fstLine):[chr] 
        : (append):[chr] <--arg( A:[chr] ) 
            : (append):[chr] 
                `<~ (take drop while):[chr] -->let( D:[chr] ) 
                    $ (= A):[chr] 
                    == (equal?):int <--arg( B:chr ) 
                        $ (= B):chr 
                        0 (integer):int <--arg( C:chr ) 
                ?, (if/else (lazy list)):[chr] 
                    $ (= D):[chr] 
                    - (subtract):chr <--arg( E:[chr] ) 
                        `( (uncons):chr -->let( F:[chr] ) 
                            @ (= D):[chr] 
                        ~ (auto = 1):auto 
                    $ (= F):[chr] 
            (implicit arg = F):[chr]