added scratch.lisp

scratch.lisp

@@ -0,0 +1,42 @@
+;;; this file contains some random examples of using epigraph.
+
+(in-package :epigraph)
+
+(defparameter *graph* 
+  (let ((g (make-graph :node-test 'equal)))
+
+    (loop for i from 1 below 12
+       do (add-node g (concatenate 'string "Node " (princ-to-string i))))
+
+    (add-edge-between-nodes g "Node 1" "Node 2")
+    (add-edge-between-nodes g "Node 1" "Node 3")
+    (add-edge-between-nodes g "Node 3" "Node 4")
+    (add-edge-between-nodes g "Node 3" "Node 5")
+    (add-edge-between-nodes g "Node 2" "Node 6")
+    (add-edge-between-nodes g "Node 6" "Node 7")
+    (add-edge-between-nodes g "Node 6" "Node 8")
+    (add-edge-between-nodes g "Node 4" "Node 9")
+    (add-edge-between-nodes g "Node 5" "Node 10")
+    (add-edge-between-nodes g "Node 5" "Node 11")
+    (add-edge-between-nodes g "Node 1" "Node 11")
+    (add-edge-between-nodes g "Node 8" "Node 7")
+    g))
+
+(edgep *graph* "Node 1" "Node 2")
+(bfs *graph* "Node 1" "Node 11")
+
+(bfs-map *graph* "Node 1" #'print)
+
+(dfs *graph* "Node 1" "Node 11")
+
+(remove-edge *graph* "Node 1" "Node 2")
+
+(let ((g (make-graph :node-test 'equal)))
+  (add-node g "n1")
+  (add-node g "n2")
+  (add-edge-between-nodes g "n1" "n2")
+  (add-edge-between-nodes g "n1" "n2")
+  (add-edge-between-nodes g "n1" "n1")
+  (describe g)
+  (find-self-edges g "n1"))
+