stack-nth ( n -- quot )

Vocabulary

stack-as-data

Inputs

n

an object

Outputs

quot

an object

Definition

USING: generalizations kernel math ;

IN: stack-as-data

MACRO: stack-nth ( n -- quot )
    [ [ [ 1 ] ] dip [ ndupd ] curry compose ]
    [ 1 + [ nrot ] curry ] bi compose ;