scolobb/typed-graph
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add cc.

Browse source
This commit is contained in:
Sergiu Ivanov 2021-10-31 21:18:08 +01:00
parent ed5fc4d3b8
commit c1e9911bb3
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
graph.rkt
View file

@ -35,7 +35,7 @@
bfs bfs/generalized fewest-vertices-path
dfs dfs/generalized
dag? tsort
dag? tsort cc
graphviz)
@ -175,6 +175,8 @@
(g:dag? (gg g)))
(define (tsort g)
(g:tsort (gg g)))
(define (cc g)
(g:cc (gg g)))
;; 10 Graphviz
(define (graphviz g #:output [output #f] #:colors [colors #f])
@ -257,6 +259,7 @@
Any)]
[dag? (-> Graph Boolean)]
[tsort (-> Graph (Listof Any))]
[cc (-> Graph (Listof (Listof Any)))]
;; 10 Graphviz
[graphviz (->* (Graph)
@ -360,7 +363,9 @@
(check-true (dag? (directed-graph '((a b) (b c)))))
(check-false (dag? (directed-graph '((a b) (b a)))))
(check-equal? (tsort (directed-graph '((a b) (b c) (a d) (d b))))
'(a d b c)))
'(a d b c))
(check-equal? (cc (undirected-graph '((a b) (b c) (d e))))
'((e d) (a b c))))
(test-case "10 Graphviz"
(define g (directed-graph '((a b) (b c))))