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 '[
        _ npick
        [ [ dup ] _ ndip _ nnth-unsafe ] [ _ ndrop @ ] if
    ] ;