! Copyright (C) 2008 Alex Chapman
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs hashtables hashtables.private kernel sequences vectors ;
+USING: accessors assocs hashtables hashtables.private kernel sequences ;
IN: digraphs
TUPLE: digraph < hashtable ;
] if ;
: topological-sort ( digraph -- seq )
- dup clone V{ } clone spin
+ [ V{ } clone ] dip [ clone ] keep
[ drop (topological-sort) ] assoc-each drop reverse ;
: topological-sorted-values ( digraph -- seq )