(map-find-index) ( seq quot find-quot -- result i elt )


Vocabulary
sequences.extras.private

Inputs
seqan object
quotan object
find-quotan object


Outputs
resultan object
ian object
eltan object


Definition
USING: kernel ;

IN: sequences.extras.private

: (map-find-index) ( seq quot find-quot -- result i elt )
[ [ f ] 2dip [ [ nip ] 2dip call dup ] curry ] dip call
[ [ [ drop f ] unless ] keep ] dip ; inline