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

bn: Remove some extra module code at the bottom.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-02-18 12:21:12 +01:00
parent 58e40e44ad
commit 6ef7483bd2
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bn.rkt
View file

@ -85,9 +85,3 @@
(: make-bn-forms (-> (Listof (Pairof Variable UpdateFuncForm)) Network)) (: make-bn-forms (-> (Listof (Pairof Variable UpdateFuncForm)) Network))
(define (make-bn-forms forms) (define (make-bn-forms forms)
(bn-form->bn (make-hash forms))) (bn-form->bn (make-hash forms)))
(let ([bn (make-bn-forms '((a . (and a b))
(b . (not b))))]
[s (make-state '((a . #t)
(b . #t)))])
((hash-ref bn 'a) s))