LDN Clojure Bot

gistfile1.clj

(defn possible-new-positions
  [[x y]]
  (map (fn [[x' y']]
         [(+ x x')
          (+ y y')]) (vec tron/legal-moves))) 

(defn safe-move?
  [look position]
  (nil?
     (look position)))

(defn available-safe-moves
  [look pos]
  (filter (partial safe-move? look) (possible-new-positions pos)))

(defn random-mover
  "To infinity and beyond!"
  [look {pos :pos}]
  {:pos (rand-nth (available-safe-moves look pos))}
  )


(defn habitual-random-mover
  "To infinity and beyond!"
  [look {pos :pos
         previous :previous
         :as state}]
  (let [direction (map - pos (or previous [0 0]))
        next-pos (map + direction pos)]
    (if (safe-move? look next-pos)
      {:pos next-pos
       :previous pos}
      (merge (random-mover look state)
             {:previous pos}))))