aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/FizzBuzz/Clojure/fizzbuzz-1.clj
View file

@ -1,9 +1,9 @@
(defn fizzbuzz [start finish] (map (fn [n]
(defn fizzbuzz [start finish]
(map (fn [n]
(cond
(zero? (mod n 15)) "FizzBuzz"
(zero? (mod n 3)) "Fizz"
(zero? (mod n 5)) "Buzz"
(zero? (mod n 15)) "FizzBuzz"
:else n))
(range start finish))
)
(range start finish)))
(fizzbuzz 1 100)

4
Task/FizzBuzz/Clojure/fizzbuzz-10.clj Normal file
View file

@ -0,0 +1,4 @@
(take 100
(map #(if (pos? (compare %1 %2)) %1 %2)
(map str (drop 1 (range)))
(map str (cycle ["" "" "Fizz"]) (cycle ["" "" "" "" "Buzz"]))))

2
Task/FizzBuzz/Clojure/fizzbuzz-9.clj Normal file
View file

@ -0,0 +1,2 @@
(let [n nil fizz (cycle [n n "fizz"]) buzz (cycle [n n n n "buzz"]) nums (iterate inc 1)]
(take 20 (map #(if (or %1 %2) (str %1 %2) %3) fizz buzz nums)))