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

This commit is contained in:
Simon Brooke 2014-07-13 20:27:52 +01:00
parent c8ae1b3dc4
commit 28da9555ba
4 changed files with 106 additions and 83 deletions

View file

@ -3371,8 +3371,10 @@ ignored). Darker shades are higher.</p>
* `value` a value of that property
</code></pre>
</td><td class="codes"><pre class="brush: clojure">(defn get-neighbours-with-property-value
([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]
(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]
(get-neighbours-with-property-value world (:x cell) (:y cell) depth
property value))