max-by ( obj1 obj2 quot: ( obj -- n ) -- obj1/obj2 )

Vocabulary

math.compare

Inputs

obj1	an object
obj2	an object
quot	a quotation with stack effect ( obj -- n )

Outputs

obj1/obj2

an object

Definition

USING: kernel math.order ;

IN: math.compare

: max-by ( obj1 obj2 quot: ( obj -- n ) -- obj1/obj2 )
    [ bi@ dupd max = ] curry most ; inline