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

Much hacking on rule language, getting it to support initial behaviour.

Browse source
This commit is contained in:
Simon Brooke 2014-07-13 20:25:48 +01:00
parent b640e2590a
commit 5bfddf2e28
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/mw_engine/utils.clj
View file

@ -90,8 +90,10 @@
should be searched; should be searched;
* `property` a keyword representing a property of the neighbours. * `property` a keyword representing a property of the neighbours.
* `value` a value of that property" * `value` a value of that property"
([world x y depth property value comparator]
(filter #(apply comparator (list (get % property) value)) (get-neighbours world x y depth)))
([world x y depth property value] ([world x y depth property value]
(filter #(= (get % property) value) (get-neighbours world x y depth))) (get-neighbours-with-property-value world x y depth property value =))
([world cell depth property value] ([world cell depth property value]
(get-neighbours-with-property-value world (:x cell) (:y cell) depth (get-neighbours-with-property-value world (:x cell) (:y cell) depth
property value)) property value))