scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

networks: Add make-state-booleanize and stb.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-02-26 15:51:25 +01:00
parent 018e3c6976
commit 2022e0187b
2 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
networks-tests.rkt
View file

@ -17,6 +17,12 @@
(not x2)))] (not x2)))]
[bn (make-network-from-functions `((x1 . ,f1) (x2 . ,f2)))]) [bn (make-network-from-functions `((x1 . ,f1) (x2 . ,f2)))])
(test-case "States"
(check-equal? (make-state-booleanize '((a . 0) (b . 1)))
(st '((a . #f) (b . #t))))
(check-equal? (stb '((a . 0) (b . 1)))
(st '((a . #f) (b . #t)))))
(test-case "One-step syncronous update" (test-case "One-step syncronous update"
(let* ([s (make-state '((x1 . #t) (x2 . #f)))] (let* ([s (make-state '((x1 . #t) (x2 . #f)))]
[new-s (update bn s '(x2 x1))]) [new-s (update bn s '(x2 x1))])

14
networks.rkt
View file

@ -18,6 +18,7 @@
;; Functions ;; Functions
(contract-out [update (-> network? state? (set/c variable? #:kind 'dont-care) state?)] (contract-out [update (-> network? state? (set/c variable? #:kind 'dont-care) state?)]
[make-state (-> (listof (cons/c symbol? any/c)) state?)] [make-state (-> (listof (cons/c symbol? any/c)) state?)]
[make-state-booleanize (-> (listof (cons/c symbol? (or/c 0 1))) state?)]
[make-network-from-functions (-> (listof (cons/c symbol? update-function/c)) network?)] [make-network-from-functions (-> (listof (cons/c symbol? update-function/c)) network?)]
[update-function-form->update-function (-> update-function-form? update-function/c)] [update-function-form->update-function (-> update-function-form? update-function/c)]
[network-form->network (-> network-form? network?)] [network-form->network (-> network-form? network?)]
@ -62,7 +63,7 @@
[update-function/c contract?] [update-function/c contract?]
[domain-mapping/c contract?]) [domain-mapping/c contract?])
;; Syntax ;; Syntax
st nn ppsg ppsgb) st stb nn ppsg ppsgb)
;;; ================= ;;; =================
@ -99,6 +100,17 @@
;;; A shortcut for make-state. ;;; A shortcut for make-state.
(define-syntax-rule (st mappings) (make-state mappings)) (define-syntax-rule (st mappings) (make-state mappings))
;;; Makes a new Boolean states from a state with numerical values 0
;;; and 1.
(define (make-state-booleanize mappings)
(make-state (for/list ([mp mappings])
(match mp
[(cons var 0) (cons var #f)]
[(cons var 1) (cons var #t)]))))
;;; A shortcut for make-state-booleanize.
(define-syntax-rule (stb mappings) (make-state-booleanize mappings))
;;; A version of make-immutable-hash restricted to creating networks. ;;; A version of make-immutable-hash restricted to creating networks.
(define (make-network-from-functions funcs) (make-immutable-hash funcs)) (define (make-network-from-functions funcs) (make-immutable-hash funcs))