ナベアツ

アルゴリズムの記事を見てコーディング。
http://www.atmarkit.co.jp/fcoding/articles/algorithm/01/algorithm01b.html

(defn henkan [num] "さーん")

(defn nabe [num]
  (cond (= (mod num 3) 0) (henkan num)
    (> (.indexOf (str num) "3") -1) (henkan num)
    :else num))

user=> (for [n (range 1 10)] (nabe n))
(1 2 "さーん" 4 5 "さーん" 7 8 "さーん")
user=>

うむ、今日は冴えてる。
はやく「Practical Clojure (The Definitive Guide)」出ないかなー。