Problem: Updown numbers

Code: Updown+numbers/darrenks_1645714448

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)

| (filter):[int] 
    , (range from 1):[int] 
        * (multiply):int 
            ;$ (= sndInt):int 
            $ (= fstInt):int 
    == (equal?):int <--arg( A:int ) 
        : (append):[int] 
            -1 (integer):int 
            1 (integer):int 
        . (map):[int] <--arg( B:[int] ) 
            `= (chunk by):[[int]] 
                ! (zip with):[int] 
                    ; (save):[chr] -->let( C:[chr] ) 
                        `p (int to str):[chr] 
                            @ (= A):int 
                    >> (tail):[chr] <--arg( D:chr ) 
                        @ (= C):[chr] 
                    - (zipop: sub):null 
                $ (= E):int <--arg( E:int ) 
            / (foldr1):int <--arg( F:[int] ) 
                (implicit arg = F):[int] 
                (implicit arg = H):int <--arg( H:int G:int )