Problem: Count in Base 2

Code: Count+in+Base+2/tails_1654148358

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]] 
            `_ (subsequences):[[chr]] 
                0 (integer):int 
                + (add):[chr] 
                    '`' (char):chr 
                    , (range from 1):[int] 
                        ~ (auto = infinity):auto 
    \ (reverse):[chr] <--arg( B:[chr] A:[chr] ) 
        (implicit arg = B):[chr]