difficult

responder.clj

(ns responder.core
  (:import [com.google.common.collect ImmutableMap$Builder]))

(def responses
  (letfn [(+ [& lines] (clojure.string/join " " lines))]
    (-> (new ImmutableMap$Builder)
      (. put "weather"    (+ "There is an 80% chance of rain this afternoon."
                             "The high will be 8 and the low 2."))
      (. put "window"     "Sensors indicate that all windows are closed.")
      (. put "heat"       "Your thermostat is currently set to 20.")
      (. put "thermostat" "Setting thermostat to 15.")
      (. put "oven"       "Do not worry. Your oven is off.")
      (. put "walked"     "You walked 1.3 kilometers so far.")
      (. put "week"       (+ "You are doing great!"
                             "Walk another half kilometer,"
                             "and you will meet your goal for the week."))
      (. put "help"       "Sending help to your location now.")
      (. build))))

(defn respond-to
  [request sorry]
  (or (. responses get request) sorry))