simon/mw-engine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More work on efficiency

Browse source
This commit is contained in:
Simon Brooke 2014-08-29 22:50:11 +01:00
parent 1120cb42e8
commit c96142a973
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mw_engine/core.clj
View file

@ -97,7 +97,7 @@
(let [state {:world (transform-world world init-rules) :rules rules}]
(:world
(last
(do-all
(doall
(take generations
(iterate transform-world-state state)))))))
@ -109,5 +109,12 @@
(dosync
(ref-set r (transform-world (deref r) rules))))
(deref r)))
(defn run-world3
[world init-rules rules generations]
(reduce (fn [world _iteration]
(transform-world world rules))
(transform-world world init-rules)
(range generations)))