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

networks: Fix Random networks.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-11-22 21:58:00 +01:00
parent 2c68055818
commit 5475bc5fbf
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
networks.rkt
View file

@ -1048,8 +1048,9 @@
;;; Generates a random network from the given domain mapping. ;;; Generates a random network from the given domain mapping.
(define (random-network domains) (define (random-network domains)
(for/hash ([(x x-dom) (in-hash domains)]) (network (for/hash ([(x x-dom) (in-hash domains)])
(values x (random-function/state domains x-dom)))) (values x (random-function/state domains x-dom)))
domains))
;;; Generates a random Boolean network with the given variables. ;;; Generates a random Boolean network with the given variables.
(define (random-boolean-network vars) (define (random-boolean-network vars)