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) 
    `. (iterate while uniq) 
        @ (= fstLine) 
        : (append) <--arg( A ) 
            : (append) 
                `<~ (take drop while) -->let( D ) 
                    $ (= A) 
                    == (equal?) <--arg( B ) 
                        $ (= B) 
                        0 (integer) <--arg( C ) 
                ?, (if/else (lazy list)) 
                    $ (= D) 
                    - (subtract) <--arg( E ) 
                        `( (uncons) -->let( F ) 
                            @ (= D) 
                        ~ (auto = 1) 
                    $ (= F) 
            (implicit arg = F)