networks: Move domain-mapping/c to Basic definitions.
This commit is contained in:
parent
cb208a66fc
commit
393f1d2bba
1 changed files with 4 additions and 4 deletions
|
@ -174,6 +174,10 @@
|
||||||
;;; state.
|
;;; state.
|
||||||
(define update-function/c (-> state? any/c))
|
(define update-function/c (-> state? any/c))
|
||||||
|
|
||||||
|
;;; A domain mapping is a hash set mapping variables to the lists of
|
||||||
|
;;; values in their domains.
|
||||||
|
(define domain-mapping/c (hash/c variable? list?))
|
||||||
|
|
||||||
;;; A network consists of a mapping from its variables to its update
|
;;; A network consists of a mapping from its variables to its update
|
||||||
;;; variables, as a well as of a mapping from its variables to
|
;;; variables, as a well as of a mapping from its variables to
|
||||||
;;; their domains.
|
;;; their domains.
|
||||||
|
@ -334,10 +338,6 @@
|
||||||
(check-false (has-edge? ig 'c 'b))
|
(check-false (has-edge? ig 'c 'b))
|
||||||
(check-false (has-edge? ig 'c 'a))))
|
(check-false (has-edge? ig 'c 'a))))
|
||||||
|
|
||||||
;;; A domain mapping is a hash set mapping variables to the lists of
|
|
||||||
;;; values in their domains.
|
|
||||||
(define domain-mapping/c (hash/c variable? list?))
|
|
||||||
|
|
||||||
;;; Given a hash-set mapping variables to generic sets of their
|
;;; Given a hash-set mapping variables to generic sets of their
|
||||||
;;; possible values, constructs the list of all possible states.
|
;;; possible values, constructs the list of all possible states.
|
||||||
(define (build-all-states vars-domains)
|
(define (build-all-states vars-domains)
|
||||||
|
|
Loading…
Reference in a new issue