23 lines
445 B
Factor
23 lines
445 B
Factor
|
! Copyright (C) 2008 William Schlieper <schlieper@unc.edu>
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
|
||
|
|
USING: accessors kernel graph-theory ;
|
||
|
|
|
||
|
|
IN: graph-theory.reversals
|
||
|
|
|
||
|
|
TUPLE: reversal graph ;
|
||
|
|
|
||
|
|
GENERIC: reverse-graph ( graph -- reversal )
|
||
|
|
|
||
|
|
M: graph reverse-graph reversal boa ;
|
||
|
|
|
||
|
|
M: reversal reverse-graph graph>> ;
|
||
|
|
|
||
|
|
INSTANCE: reversal graph
|
||
|
|
|
||
|
|
M: reversal vertices
|
||
|
|
graph>> vertices ;
|
||
|
|
|
||
|
|
M: reversal adj?
|
||
|
|
swapd graph>> adj? ;
|