marionette-of-u · August 18, 2012 22:40
diff --git a/clojureでfizzbuzz その4.clj b/clojureでfizzbuzz その4.clj
 (ns org.program.main)

 (def fizzbuzz
 (map first
  (iterate
   (fn [[a b]]
    [(cond
      (= 0 (mod b 15)) "fizzbuzz"
      (= 0 (mod b 5))  "buzz"
      (= 0 (mod b 3))  "fizz"
      :else (str b))
     (inc b)]) ["start!" 1])))

 (defn -main [n]
 (take n fizzbuzz))
	(ns org.program.main)

	(def fizzbuzz
	(map first
	(iterate
	(fn [[a b]]
	[(cond
	(= 0 (mod b 15)) "fizzbuzz"
	(= 0 (mod b 5)) "buzz"
	(= 0 (mod b 3)) "fizz"
	:else (str b))
	(inc b)]) ["start!" 1])))

	(defn -main [n]
	(take n fizzbuzz))
No results found