Problem: Stars and Bars

Code: Stars+and+Bars/tails_1644992679

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)

= (subscript (wrapped)):[[chr]] 
    ;$ (= sndInt):int 
    =~ (group by (also sorts)):[[[chr]]] 
        `* (nary cartesian product):[[chr]] 
            . (map):[[chr]] 
                , (range from 1):[int] 
                    - (subtract):int 
                        + (sum):int 
                            _ (= ints):[int] 
                        ~ (auto = 1):auto 
                "*|" (string):[chr] <--arg( A:int ) 
        `< (sort):[chr] <--arg( B:[chr] ) 
            $ (= B):[chr]