(picker) ( n -- quot )

Vocabulary

generic.standard

Inputs

n

an object

Outputs

quot

an object

Definition

USING: combinators kernel math ;

IN: generic.standard

: (picker) ( n -- quot )
    {
        { 0 [ [ dup ] ] }
        { 1 [ [ over ] ] }
        { 2 [ [ pick ] ] }
        [ 1 - (picker) [ dip swap ] curry ]
    } case ;