Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-10-31 20:09:53 +00:00
Code Issues Projects Releases Wiki Activity

changed all float coercion to double coercion

Browse Source
This commit is contained in:
Richard Harrington 2013-08-23 10:51:56 -04:00
parent 8b9b11d803
commit 0945151aab
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/robotwar/brain.clj
View File

@ -4,7 +4,7 @@
(def op-map (into {} (for [op assembler/op-commands] (def op-map (into {} (for [op assembler/op-commands]
[op (case op [op (case op
"/" #(int (Math/round (float (/ %1 %2)))) "/" #(int (Math/round (double (/ %1 %2))))
"#" not= "#" not=
(-> op read-string eval))]))) (-> op read-string eval))])))

4
src/robotwar/register.clj
View File

@ -50,12 +50,12 @@
(def robot-field-write-mixin (def robot-field-write-mixin
; returns a world with the value of a field in the robot hash map altered ; returns a world with the value of a field in the robot hash map altered
; (with the number being cast to floating point before being pushed) ; (with the number being cast to double before being pushed)
(fn [{:keys [robot-idx field-name multiplier]} world data] (fn [{:keys [robot-idx field-name multiplier]} world data]
(assoc-in (assoc-in
world world
(path-to-robot-field robot-idx field-name) (path-to-robot-field robot-idx field-name)
(float (* data multiplier))))) (double (* data multiplier)))))
(defrecord StorageRegister [robot-idx reg-name val]) (defrecord StorageRegister [robot-idx reg-name val])
(extend StorageRegister (extend StorageRegister