fork download
copy 
  1. (defn fizzbuzz [n]
  2.   (-> (fn [i mod3 mod5]
  3.         (cond
  4.           (= mod3 mod5 0) "fizzbuzz"
  5.           (= mod3 0)      "fizz"
  6.           (= mod5 0)      "buzz"
  7.           :else           i))
  8.       (map (range n)
  9.            (cycle (range 3))
  10.            (cycle (range 5)))))
  11.  
  12. (= (fizzbuzz 10) ["fizzbuzz" 1 2 "fizz" 4 "buzz" "fizz" 7 8 "fizz"])
  13. (prn (fizzbuzz 100))
  14.  
Success #stdin #stdout 1.27s 75648KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
("fizzbuzz" 1 2 "fizz" 4 "buzz" "fizz" 7 8 "fizz" "buzz" 11 "fizz" 13 14 "fizzbuzz" 16 17 "fizz" 19 "buzz" "fizz" 22 23 "fizz" "buzz" 26 "fizz" 28 29 "fizzbuzz" 31 32 "fizz" 34 "buzz" "fizz" 37 38 "fizz" "buzz" 41 "fizz" 43 44 "fizzbuzz" 46 47 "fizz" 49 "buzz" "fizz" 52 53 "fizz" "buzz" 56 "fizz" 58 59 "fizzbuzz" 61 62 "fizz" 64 "buzz" "fizz" 67 68 "fizz" "buzz" 71 "fizz" 73 74 "fizzbuzz" 76 77 "fizz" 79 "buzz" "fizz" 82 83 "fizz" "buzz" 86 "fizz" 88 89 "fizzbuzz" 91 92 "fizz" 94 "buzz" "fizz" 97 98 "fizz")
https://ideone.com/eANkLK
language:
Clojure (clojure 1.10.0)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!