[ndip] ( quot n -- quot' )

Vocabulary

fry.private

Inputs

quot	an object
n	an object

Outputs

quot'

an object

Definition

USING: combinators kernel math sequences ;

IN: fry.private

: [ndip] ( quot n -- quot' )
    {
        { 0 [ wrap-non-callable ] }
        { 1 [ \ dip [ ] 2sequence ] }
        { 2 [ \ 2dip [ ] 2sequence ] }
        { 3 [ \ 3dip [ ] 2sequence ] }
        [ [ \ 3dip [ ] 2sequence ] dip 3 - [ndip] ]
    } case ;