blob: fda3fef07f1a495d7c62377210ab4a1737c049c8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
(ns raindrops)
(defn convert [number]
(let [drops (apply str
(map (fn [factor string]
(if (== (mod number factor) 0)
string nil))
[3 5 7]
["Pling" "Plang" "Plong"]))]
(if (= drops "")
(str number) drops)))
|