steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

deleting unfinished code from this branch

db4
Alex Chapman 2008-04-28 14:30:49 +10:00
parent 24832b5c0e
commit 19022db77f
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extra/new-graphs/new-graphs.factor
View File

@ -1,21 +0,0 @@
! Copyright (C) 2008 Alex Chapman
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs kernel new-slots sequences vectors ;
IN: new-graphs
TUPLE: graph edges ;
TUPLE: digraph ;
TUPLE: undigraph ;
: <graph> ( -- graph )
H{ } clone graph construct-boa H{ } clone over set-delegate ;
: <digraph> ( -- graph )
<graph> digraph construct-empty tuck set-delegate ;
: <undigraph> ( -- graph )
<graph> undigraph construct-empty tuck set-delegate ;
GENERIC: add-vertex ( key value graph -- )
M: graph add-vertex ( key value digraph -- ) set-at ;