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

network: Don't use make-network-from-functions in basic definitions.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-11-22 00:08:46 +01:00
parent 11d75bcc89
commit cfe710e6b2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
networks.rkt
View file

@ -192,7 +192,7 @@
(and x1 (not x2))))) (and x1 (not x2)))))
(define f2 (λ (s) (let ([x2 (hash-ref s 'x2)]) (define f2 (λ (s) (let ([x2 (hash-ref s 'x2)])
(not x2)))) (not x2))))
(define bn (make-network-from-functions `((x1 . ,f1) (x2 . ,f2)))) (define bn (hash 'x1 f1 'x2 f2))
(define s1 (make-state '((x1 . #t) (x2 . #f)))) (define s1 (make-state '((x1 . #t) (x2 . #f))))
(define new-s1 (update bn s1 '(x2 x1))) (define new-s1 (update bn s1 '(x2 x1)))
(define s2 (make-state '((x1 . #f) (x2 . #f)))) (define s2 (make-state '((x1 . #f) (x2 . #f))))