map-maximum ( seq quot: ( ... elt -- ... elt' ) -- elt' )

Vocabulary

sequences.extras

Inputs

seq	an object
quot	a quotation with stack effect ( ... elt -- ... elt' )

Outputs

elt'

an object

Definition

USING: math.order sequences ;

IN: sequences.extras

: map-maximum ( seq quot: ( ... elt -- ... elt' ) -- elt' )
    [ max ] map-reduce ; inline