first I created the hypergraph with one vertex called "Snack".
and another hypergraph with one vertex called "Beverage", then
I type the following and has the error:
STk> (define h (graph (current-graph-view))
)
#[undefined]
STk> (define verts (set-vertex))
#[undefined]
STk> (define bev-test (string->regexp "Beverage"))
#[undefined]
STk> (define snack-test (string->regexp "Snack"))
#[undefined]
STk> (define (has-snack vlist)
(cond ((null ? vlist) #f)
(#t (or (snack-test (vertex-label (car vlist)))
(has-snack (cdr vlist))))))
#[undefined]
STk> (define (has-bev vlist)
(cond ((null ? vlist) #f )
(#t (or (bev-test (vertex-label (car vlist)))
(has-bev (cdr vlist))))))
#[undefined]
STk> (map (lambda (e)
(if (and (has-bev (set-vertex->list (vertices e)))
(has-snack (set-vertex->list (vertices e))))
(set! verts (+ verts (vertices e)))))
(set-edge->list (edges h)))
*** Error:
unbound variable: null
STk> (define has-snack-or-bev (induced-subgraph h verts 1))
#[undefined]
STk> (define hsv (make <graph-view>:graph has-snack-or-bev
:layout 'spring))
*** Error:
unbound variable: <graph-view>:graph
STk> (define hsv (make <graph-view>:graph has-snack-or-bev
:layout 'spring))
*** Error:
unbound variable: <graph-view>:graph
STk> (define b (make <button> :text "double vertex size "
:expand #t :fill 'x
:parent (slot-ref hv 'graph-toplevel)
:command '(map (lambda (x) (set! (size x) (* (size x) 2)))
*link:selected-vertices*)))
*** Error:
so can you help me check it?
Thanks!
Mei Liu