picker ( n -- quot )

Vocabulary

multi-methods

Inputs

n

an object

Outputs

quot

an object

Definition

USING: combinators kernel math ;

IN: multi-methods

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