RosettaCodeData/Task/FizzBuzz/Clojure/fizzbuzz-8.clj
2018-06-22 20:57:24 +00:00

4 lines
165 B
Clojure

(take 100 (map #(let [s (str %2 %3) ] (if (seq s) s (inc %)) )
(range)
(cycle [ "" "" "Fizz" ])
(cycle [ "" "" "" "" "Buzz" ])))