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

generic: Fix fallback-dds-step.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-02-23 13:36:49 +01:00
parent 8c92a4bbd8
commit fea113c1dd
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
generic.rkt
View file

@ -19,7 +19,7 @@
;;; Given a dds and a set of starting states, produce the set of
;;; states reachable in one step. This is a fallback for dds-step.
(define (fallback-dds-step dds ss)
(list->set (flatten (for/list ([s ss]) (dds-step-one dds s)))))
(apply set-union (for/list ([s ss]) (dds-step-one dds s))))
;;; A discrete dynamical system.
(define-generics dds