eschulte / graph Goto Github PK

(let ((g (make-instance 'graph)))
  (graph:populate
   g
   :nodes '(jqt rhn xhk nvd rsh frs pzl lsr hfx cmg qnr lhk bvb ntq rzs)
   :edges-w-values '(((jqt rhn) . 1)
                     ((jqt xhk) . 1)
                     ((jqt nvd) . 1)
                     ((rsh frs) . 1)
                     ((rsh pzl) . 1)
                     ((rsh lsr) . 1)
                     ((xhk hfx) . 1)
                     ((cmg qnr) . 1)
                     ((cmg nvd) . 1)
                     ((cmg lhk) . 1)
                     ((cmg bvb) . 1)
                     ((rhn xhk) . 1)
                     ((rhn bvb) . 1)
                     ((rhn hfx) . 1)
                     ((bvb xhk) . 1)
                     ((bvb hfx) . 1)
                     ((pzl lsr) . 1)
                     ((pzl hfx) . 1)
                     ((pzl nvd) . 1)
                     ((qnr nvd) . 1)
                     ((ntq jqt) . 1)
                     ((ntq hfx) . 1)
                     ((ntq bvb) . 1)
                     ((ntq xhk) . 1)
                     ((nvd lhk) . 1)
                     ((lsr lhk) . 1)
                     ((rzs qnr) . 1)
                     ((rzs cmg) . 1)
                     ((rzs lsr) . 1)
                     ((rzs rsh) . 1)
                     ((frs qnr) . 1)
                     ((frs lhk) . 1)
                     ((frs lsr) . 1)))
  (graph:min-cut g))

(loop :while rest :do
              ;; grow A by adding the node most tightly connected to A
              (let ((new (car (sort rest #'> :key {connection-weight a}))))
                (setf rest (remove new rest))
                (push new a)))

Error: Test assertion failed:

Expression (MEMBER '(BAR FOO) (EDGES *GRAPH*)
             TEST #'TREE-EQUAL) evaluated to true
0: '(BAR FOO) => (:BAR :FOO)
1: (EDGES *GRAPH*) => ((:FOO :BAR) (:BAR :BAZ) (:FOO :BAZ) (:BAR :FOO))
3: #'TREE-EQUAL => #<Function TREE-EQUAL>
  [condition type: ASSERTION-FAILED]

Error: Test assertion failed:

Binary predicate (EVERY X Y) failed.
x: (THE (VALUES FUNCTION &OPTIONAL)
        (CURRY #'CLOSEDP *GRAPH*)) => #<Closure (:INTERNAL CURRY 0)
                                        @
                                        #x30791da52>
y: (CONNECTED-GROUPS-OF-SIZE *GRAPH* 3) => ((:BAR :BAZ :FOO)
                                            (:ZAP :ZAF :QUX))
  [condition type: ASSERTION-FAILED]

Error: Test assertion failed:

Binary predicate (= X Y) failed.
x: 1 => 1
y: (CLUSTERING-COEFFICIENT *GRAPH*) => 0
  [condition type: ASSERTION-FAILED]

Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001A40103}>: Can't inherit "MAP" from "DAMN-FAST-PRIORITY-QUEUE", it is inherited from "COMMON-LISP"