nth-index ( n obj seq -- i )

Vocabulary

sequences.extras

Inputs

n	an object
obj	an object
seq	an object

Outputs

i

an object

Definition

USING: kernel math sequences ;

IN: sequences.extras

: nth-index ( n obj seq -- i )
    [ = dup [ drop 1 - dup 0 < ] when ] with find drop nip ;