Apple-2-SW
/
robotwar
mirror of https://github.com/richardharrington/robotwar.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

changed comments in robot

This commit is contained in:
Richard Harrington 2013-09-01 23:14:54 -04:00
parent 2ab3336629
commit a7cb6a58da
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/robotwar/robot.clj
View File

@ -63,11 +63,11 @@
(defn collide-or-not
"takes a robot and a world and returns the world, with the
velocities of robots altered if they have collided with
each other. Does not currently calculate damage to robots.
TODO: there's got to be a better way to write this. The whole last
two-thirds consists of code that would be a lot shorter even in JavaScript,
for Christ's sake. And it's really inefficient -- calculates
a lot of x and y stuff twice."
each other. Does not currently calculate damage to robots."
; TODO: This is terrible and needs to be rewritten soon. The whole last
; two-thirds consists of code that would be a lot shorter even in JavaScript,
; for Christ's sake. And it's really inefficient -- calculates
; a lot of x and y stuff twice.
[robot-idx {robots :robots :as world}]
(let [robot (get-in world [:robots robot-idx])
other-robot-idxs (filter #(not= robot-idx %) (range (count robots)))