maximal-element ( seq quot -- n elt )

Vocabulary

multi-methods

Inputs

seq	an object
quot	an object

Outputs

n	an object
elt	an object

Definition

USING: kernel math.order sequences ;

IN: multi-methods

: maximal-element ( seq quot -- n elt )
    dupd [ swapd [ call +lt+ = ] 2curry none? ] 2curry find
    [ "Topological sort failed" throw ] unless* ; inline