sloane-name-generator

(def first-name
  {"a" "Ally-Pally" 
   "b" "Bongo" 
   "c" "Chippers" 
   "d" "Dingo" 
   "m" "Muffy"})

(def second-name
  {"a" "Anstruther" 
   "b" "Beaufort" 
   "c" "Cholmondeley" 
   "d" "De Lisle"
   "m" "Mountbatten"
  })

(def third-name
  {"a" "Arbuthnot" 
   "b" "Battenburg" 
   "c" "Coutts" 
   "d" "Drummond"
   "m" "Molyneux"
   "o" "Oppenheimer"
  })

(defn get-first-name [character]
  (get first-name (clojure.string/lower-case character)))

(defn sloane-first-name [firstname]
  (get-first-name (first firstname)))

(defn get-second-name [character]
  (get second-name (clojure.string/lower-case character)))

(defn sloane-second-name [secondname]
  (get-second-name (first secondname)))

(defn get-third-name [character]
  (get third-name (clojure.string/lower-case character)))

(defn sloane-third-name [thirdname]
  (get-third-name (second thirdname)))

(defn sloane-name [name]
  (let [first-name (first (clojure.string/split name #" "))
        second-name (second (clojure.string/split name #" "))]
    (str (sloane-first-name first-name) " " 
       (sloane-second-name second-name) "-"
       (sloane-third-name second-name)
    ))
  )