Problem: Count in Base 10

Code: Count+in+Base+10/tails_1654147926

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]] 
    < (take):[[[chr]]] 
        $ (= fstInt):int 
        >> (tail):[[[chr]]] 
            `* (nary cartesian product):[[[chr]]] 
                . (map):[[[chr]]] 
                    "xo-" (string):[chr] 
                    . (map):[[chr]] <--arg( A:chr ) 
                        `, (range from 0):[int] 
                            10 (integer):int 
                        ^ (replicate):[chr] <--arg( B:int ) 
                            $ (= B):int 
                            @ (= A):chr 
    + (concat):[chr] <--arg( D:[[chr]] C:[[chr]] ) 
        (implicit arg = D):[[chr]]