weather.clj

(defn get-city [zipcode]
  (get (first (filter #(= (% :zip) zipcode) factors-table)) :city))

(defn get-latitude [zipcode]
  (get (first (filter #(= (% :zip) zipcode) factors-table)) :latitude))

(defn get-longitude [zipcode]
  (get (first (filter #(= (% :zip) zipcode) factors-table)) :longitude))

(defn make-getter [k] (fn [zip] (get (first (filter #(= (% :zip)) zip) factors-table)) k))
(def get-city (make-getter :city))
(def get-latitude (make-getter :latitude))
(def get-longitude (make-getter :longitude))