networks: Move domain-mapping/c to Basic definitions.

This commit is contained in:
Sergiu Ivanov 2020-11-22 20:46:53 +01:00
parent cb208a66fc
commit 393f1d2bba

View file

@ -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)