maximum-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 maximum-by that pushes the index of the greated element along with the greatest element.

Definition

USING: math.order sequences.extras.private ;

IN: sequences.extras

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