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

Still hacking rules

Browse source
This commit is contained in:
simon 2014-07-04 11:03:39 +01:00
parent 9b52b7229b
commit 1682050fbd
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/mw_engine/natural_rules.clj
View file

@ -113,7 +113,7 @@
;; (fn [cell world] ;; (fn [cell world]
;; (cond (> (get-int cell :wolves) 8) (merge cell {:wolves 8}))) ;; (cond (> (get-int cell :wolves) 8) (merge cell {:wolves 8})))
;; if there are not enough deer to sustain the get-int of wolves, ;; if there are not enough deer to sustain the get-int of wolves,
;; some wolves die or move on. ;; some wolves die or move on. (doesn't seem to be working?)
(fn [cell world] (fn [cell world]
(cond (> (get-int cell :wolves) (get-int cell :deer)) (cond (> (get-int cell :wolves) (get-int cell :deer))
(merge cell {:wolves 0}))) (merge cell {:wolves 0})))