Beginning to learn Clojure

piglatin.clj

; Aliasing the string class to be more terse
(require '[clojure.string :as str])

; As a 'def', this is evaluated once
(def vowel? (set "AaEeOoIiUu"))

; Given a word, converts it into a pig latin equivalent
(defn convert-word [word]
  (let [first-letter (first word)]
    (if (vowel? first-letter)
      (str word "ay")
      (str (subs word 1) first-letter "ay"))))

; Converts a list of space-delimited words into pig latin.
(defn to-pig-latin [words]
  (let [word-list (str/split words #" " )]
    (map convert-word word-list)))


(def names (set `("Phillip" "Rikki" "Jim" "Emily" "Vee" "Bananas" "apple")))

(println "Names:")
(doall (map (fn [name] (print (str name " "))) names))
(println "\nEncoded as pig latin:")
(doall (map (fn [name] (print (str/join #" " (to-pig-latin name)) " ")) names))