Problem: Updown numbers

Code: Updown+numbers/tails+%28darrenks%29_1646895581

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)):[int] 
    40 (integer):int 
    =~ (group by (also sorts)):[[int]] 
        , (range from 1):[int] 
            ^ (pow):int 
                ~ (auto = 10):auto 
                5 (integer):int 
        ~ (nosort):null 
        . (map):[int] <--arg( A:int ) 
            `= (chunk by):[[int]] 
                ! (zip with):[int] 
                    ; (save):[chr] -->let( B:[chr] ) 
                        `p (int to str):[chr] 
                            $ (= A):int 
                    >> (tail):[chr] <--arg( C:chr ) 
                        @ (= B):[chr] 
                    - (zipop: sub):null 
                $ (= D):int <--arg( D:int ) 
            / (foldr1):int <--arg( E:[int] ) 
                (implicit arg = E):[int] 
                (implicit arg = G):int <--arg( G:int F:int )