snake

(defn update [{:keys [food snake direction points]}]
  (if (game-over? snake)
    (do
      {:food food
       :snake snake
       :direction [0,0]
       :points points})
    (let [head (first snake)
          eating (eating? food head)
          moved-snake (update-snake direction snake)
          new-snake (if eating
                      (conj moved-snake (last snake))
                      moved-snake)
          eaten-food (if eating
                       (disj food head)
                       food)
          new-points (if eating
                       (inc points)
                       points)
          new-food (if (< (rand) 0.005)
                     (conj eaten-food [(rand-int 80),(rand-int 60)])
                     eaten-food)]
      {:food new-food
       :snake new-snake
       :direction direction
       :points new-points})))