(ncurry) ( accum n -- accum )

Vocabulary

fry.private

Inputs

accum	an object
n	an object

Outputs

accum

an object

Definition

USING: combinators kernel math sequences ;

IN: fry.private

: (ncurry) ( accum n -- accum )
    {
        { 0 [ ] }
        { 1 [ \ curry suffix! ] }
        { 2 [ \ 2curry suffix! ] }
        { 3 [ \ 3curry suffix! ] }
        [ [ \ 3curry suffix! ] dip 3 - (ncurry) ]
    } case ;