 (defn zombie-health [game position]
   (:health (get-in game [:terrain position])))
 
-(defn is-zombie? [terrain]
+(defn- is-zombie? [terrain]
   (= (:type terrain) :zombie))
 
 (defn zombie-positions [game]

                                         (assoc :health zombie-default-health)
                                         (assoc :weapon (make-weapon :zombie-fist)))))

(defn set-zombies [game zombie-positions]
  (reduce set-zombie game zombie-positions))

(defn make-game [{world-size :world-size player-pos :player-pos zombies :zombies}]
  (-> {:world-size world-size

                  current-pos)]
    (set-player game new-pos action)))

(defn- player-attack [{terrain :terrain player-pos :player-pos :as game}]
  (reduce (fn [game counter]
            (let [target-pos (get-position player-pos (player-direction game) counter)]
              (update game :terrain attack-target player-pos target-pos :zombie)))
