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

Worked out why the wolves weren't working...

Browse source
This commit is contained in:
simon 2014-07-02 23:00:23 +01:00
parent 9ad67ba0a4
commit 19db0e0673
1 changed files with 24 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/mw_engine/natural_rules.clj
View file

@ -90,11 +90,11 @@
(>= (population cell :deer) 2)
(merge cell {:deer (int (* (:deer cell) 4))})))
;; wolves arrive occasionally at the edge of the map.
;; (fn [cell world]
;; (cond (and (< (count (get-neighbours world cell)) 8)
;; (< (rand 50) 1)
;; (= (population cell :wolves) 0))
;; (merge cell {:wolves 2})))
(fn [cell world]
(cond (and (< (count (get-neighbours world cell)) 8)
(< (rand 50) 1)
(= (population cell :wolves) 0))
(merge cell {:wolves 2})))
;; if there are not enough deer to sustain the population of wolves,
;; some wolves die or move on.
(fn [cell world]