Merge branch 'master' of github.com:bendlas/ai-challenge

bendlas · Dec 10, 2011 · 294c57e · 294c57e
2 parents f7ff0a1 + 4280315
commit 294c57e
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/src/MyBot.clj b/src/MyBot.clj
@@ -3,5 +3,4 @@
    (aichallenge [ant :as ant]
                 [bot :as bot])))
 
-(.println *err* "Here we are")
 (ant/start-game bot/init-bot)
diff --git a/src/aichallenge/ant.clj b/src/aichallenge/ant.clj
@@ -148,6 +148,12 @@
   [gs]
   (:food gs))
 
+(defn apply-move
+  "Get projected game state after move"
+  [gs [[row col :as ant] dir]]
+  (update-in gs [:ants]
+             #(-> (dissoc % [row col])
+                  (assoc % [row col]))))
 
 (defn unit-distance 
   "Get the vector distance between two points on a torus. Negative deltas are 

diff --git a/src/aichallenge/bot.clj b/src/aichallenge/bot.clj
@@ -10,7 +10,6 @@
   (perr \newline))
 
 (defn init-bot [game-info]
-  (perrln "Initlializing bot")
   (fn pull-moves [state]
     (for [ant (:ants state)
           :let [dir (first (filter #(ant/valid-move? state ant %)