nth-basis-elt ( generators n -- elt )

Vocabulary

koszul

Inputs

generators	an object
n	an object

Outputs

elt

an object

Definition

USING: kernel math sequences ;

IN: koszul

: nth-basis-elt ( generators n -- elt )
    over length <iota> [ 3dup bit? [ nth ] [ 2drop f ] if ] map
    sift 2nip ;