Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-05-28 23:41:31 +00:00
Code Issues Projects Releases Wiki Activity

refactored 'register' with path-to-robot-field convenience function

Browse Source
This commit is contained in:
Richard Harrington 2013-08-20 14:57:53 -04:00
parent 70c866189b
commit 07596d8fad
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/robotwar/register.clj
View File

@ -8,6 +8,9 @@
(defn path-to-robot [robot-idx]
[:robots robot-idx])
(defn path-to-robot-field [robot-idx robot-field]
[:robots robot-idx robot-field])
(defn path-to-registers [robot-idx]
[:robots robot-idx :brain :registers])
@ -41,7 +44,7 @@
(fn [this world]
(Math/round (/ (get-in
world
(conj (path-to-robot (:robot-idx this)) (:field-name this)))
(path-to-robot-field (:robot-idx this) (:field-name this)))
(:multiplier this))))})
(def robot-field-write-mixin
@ -51,7 +54,7 @@
(fn [this world data]
(assoc-in
world
(conj (path-to-robot (:robot-idx this)) (:field-name this))
(path-to-robot-field (:robot-idx this) (:field-name this))
(float (* data (:multiplier this)))))})
(def no-op-write-mixin