Start the library with the idea of a solution from Alex Knauth.
This commit is contained in:
commit
2241bf9d20
1 changed files with 32 additions and 0 deletions
32
main.rkt
Normal file
32
main.rkt
Normal file
|
@ -0,0 +1,32 @@
|
|||
#lang typed/racket
|
||||
|
||||
;https://stackoverflow.com/questions/65386334/racket-generic-graph-library-in-typed-racket
|
||||
|
||||
(module graph-wrapper racket
|
||||
(require (prefix-in g: graph))
|
||||
(provide graph?
|
||||
directed-graph
|
||||
has-edge?
|
||||
graphviz)
|
||||
|
||||
(struct graph (g))
|
||||
|
||||
(define (directed-graph es [ws #f])
|
||||
(graph (g:directed-graph es ws)))
|
||||
(define (has-edge? g u v)
|
||||
(g:has-edge? (graph-g g) u v))
|
||||
(define (graphviz g #:output [output #f] #:colors [colors #f])
|
||||
(g:graphviz (graph-g g) #:output output #:colors colors)))
|
||||
|
||||
(require/typed 'graph-wrapper
|
||||
[#:opaque Graph graph?]
|
||||
[directed-graph (->* ((Listof (List Any Any))) ((Listof Any)) Graph)]
|
||||
[has-edge? (-> Graph Any Any Boolean)]
|
||||
[graphviz (->* (Graph)
|
||||
(#:output Output-Port
|
||||
#:colors (HashTable Any Natural))
|
||||
String)])
|
||||
|
||||
(define g (directed-graph '((a b) (b c))))
|
||||
(has-edge? g 'a 'c)
|
||||
(graphviz g)
|
Loading…
Reference in a new issue