clojure example

foo.clj

(defn add-prefix [prefix string]
  "Prepends prefix to string separated by a space"
  (str prefix " " string))

(def formalize-male
  "Returns a formal version of a male name"
  (partial add-prefix "Mr"))

(defn parenthesize [string]
  "Wraps names in parentheses"
  (str "(" string ")"))

(def guys ["James" "Pat" "Phil" "Tom"])

;say I want to formalize and wrap in parens each name
;then print out the results for inspection

(println (map (comp parenthesize formalize-male) guys))