largest-class ( seq -- n elt )

Vocabulary

classes.algebra

Inputs

seq

an object

Outputs

n	an object
elt	an object

Definition

USING: kernel sequences ;

IN: classes.algebra

: largest-class ( seq -- n elt )
    dup [ [ class< ] with none? ] curry find-last
    [ topological-sort-failed ] unless* ;