finish-nfind ( n -- quot )

Vocabulary

sequences.generalizations

Inputs

n

an object

Outputs

quot

an object

Definition

USING: arrays generalizations kernel math quotations ;

IN: sequences.generalizations

MACRO: finish-nfind ( n -- quot )
    [ 1 + ] keep dup dup dup f <array> >quotation [
        [ [ [ [ dup ] ] ] dip [ ndip ] curry compose ] dip
        [ nnth-unsafe ] curry compose
    ] 2dip [ [ ndrop ] curry ] dip compose
    [ [ [ npick ] curry ] dip ] dip [ if ] 2curry compose ;