topological-sort ( seq quot -- newseq )


Vocabulary
multi-methods

Inputs
seqan object
quotan object


Outputs
newseqan object


Definition
USING: kernel sequences vectors ;

IN: multi-methods

: topological-sort ( seq quot -- newseq )
[ >vector [ dup empty? not ] ] dip
[ dupd maximal-element [ over remove-nth! drop ] dip ] curry
produce nip ; inline