Skip to content

Instantly share code, notes, and snippets.

@daveyarwood

daveyarwood/fizzbuzz-c.clj

Created June 14, 2014 20:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save daveyarwood/6640d5c4c19194d8e214 to your computer and use it in GitHub Desktop.
Save daveyarwood/6640d5c4c19194d8e214 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fizzbuzz-c.clj
(def fizz-buzz
(->> (map vector (range 1 101) (repeat 100 ""))
(map (fn [[i s]] [i (if (zero? (rem i 3)) (str s "Fizz") s)]))
(map (fn [[i s]] [i (if (zero? (rem i 5)) (str s "Buzz") s)]))
(map (fn [[i s]] (if (= "" s) i s)))))
(doseq [x fizz-buzz] (println x))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment