minimum-by* ( ... seq quot: ( ... elt -- ... x ) -- ... i elt )

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation

Outputs

i	an integer
elt	an object

Word description

A variant of minimum-by that pushes the index of the least element along with the least element.

Definition

USING: math.order sequences.extras.private ;

IN: sequences.extras

: minimum-by*
    ( ... seq quot: ( ... elt -- ... x ) -- ... i elt )
    [ before? ] select-by* ; inline