ClojureでFizzBuzzを書いた

fizzbuzz1.clj

;
; fizzbuzz1
;

(def x
  (for [i (range 1 101)]
    (cond
      (and
        (= (mod i 3) 0)
        (= (mod i 5) 0)) "FizzBuzz"
      (= (mod i 3) 0) "Fizz"
      (= (mod i 5) 0) "Buzz"
      :else (str i))))

(doseq [n x] (println n))

fizzbuzz2.clj

;
; fizzbuzz2
;

(defn one-to-onehandred
  []
  (map
    (fn [x]
      (cond
        (and
          (= (mod x 3) 0)
          (= (mod x 5) 0)) "FizzBuzz"
        (= (mod x 3) 0) "Fizz"
        (= (mod x 5) 0) "Buzz"
        :else x))
    (map #(+ % 1) (range 100))
  )
)

(doseq [x (map #(str % "\n") (one-to-onehandred))]
  (print x))

fizzbuzz3.clj

;
; fizzbuzz3
;

; 1-100までのリストを生成
(def one-to-onehandred (map inc (range 100)))

; FizzBuzz文字列にマッピング
(def fizzbuzz-list
  (map
    (fn [x]
       (cond
         (= (mod x 15) 0) "FizzBuzz"
         (= (mod x 3) 0) "Fizz"
         (= (mod x 5) 0) "Buzz"
         :else (str x))) one-to-onehandred))

; 出力
(doseq [x fizzbuzz-list] (println x))