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

networks: Rewrite update.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-11-21 23:28:30 +01:00
parent 6560dcbe6c
commit 11d75bcc89
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
networks.rkt
View file

@ -181,10 +181,9 @@
;;; Given a state s updates all the variables from xs. ;;; Given a state s updates all the variables from xs.
(define (update network s xs) (define (update network s xs)
(for/fold ([new-s s]) (define funcs (network-functions network))
([x xs]) (for/hash ([x xs])
(let ([f (hash-ref network x)]) (x ((hash-ref funcs x) s))))
(hash-set new-s x (f s)))))
(module+ test (module+ test
(test-case "basic definitions" (test-case "basic definitions"