unmaintained/graph-theory/reversals/reversals.factor

   1 ! Copyright (C) 2008 William Schlieper <schlieper@unc.edu>
   2 ! See http://factorcode.org/license.txt for BSD license.
   3
   4 USING: accessors kernel graph-theory ;
   5
   6 IN: graph-theory.reversals
   7
   8 TUPLE: reversal graph ;
   9
  10 GENERIC: reverse-graph ( graph -- reversal )
  11
  12 M: graph reverse-graph reversal boa ;
  13
  14 M: reversal reverse-graph graph>> ;
  15
  16 INSTANCE: reversal graph
  17
  18 M: reversal vertices
  19     graph>> vertices ;
  20
  21 M: reversal adj?
  22     swapd graph>> adj? ;