http://vimeo.com/11088005
より。素敵なfizzbuzz。
(defn fizz [n] (if (zero? (mod n 3)) "fizz")) (defn buzz [n] (if (zero? (mod n 5)) "buzz")) (def fb-list [fizz buzz]) (defn fizzbuzz [n] (let [fb (apply str ((apply juxt fb-list) n))] (if (empty? fb) n fb))) (for [x (range 1 100)] (fizzbuzz x))
ほかにも沢山Clojureの機能紹介ビデオがある。