]> git.rkrishnan.org Git - sicp.git/blob - src/main/clojure/sicp/misc/plural.clj
projects / sicp.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Reorganisation of directory structure.
[sicp.git] / src / main / clojure / sicp / misc / plural.clj
1 ;; from Brian Harvey's Spring 2008 lecture 01.
2 (defn plural [wd]
3   (if (= (last wd) \y)
4     (apply str (concat (butlast wd) "ies"))
5     (apply str (concat wd "s"))))
Unnamed repository; edit this file 'description' to name the repository.