Naive pluralization helper function.

pluralize.clj

(defn pluralize
  "Takes an integer and a string and returns a string of '%d %s' where %s is pluralized based on %d.
  Assumes x >= 1 and s is singular."
  ([x s] (pluralize x s nil))
  ([x s ss]
   (format "%d %s" x 
           (if (= 1 x) s
             (or ss (condp re-matches s
                      #".*(x|[^aeiou]o|ch|s)" (str s "es")
                      #".*[^aeiou]y" (str (apply str (drop-last s)) "ies")
                      (str s "s")))))))

(pluralize 4 "astronaut" "farmers") ;; "4 farmers"
(pluralize 1 "astronaut" "farmers") ;; "1 astronaut"
(pluralize 2 "day")                 ;; "2 days"