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