12 lines
192 B
Plaintext
12 lines
192 B
Plaintext
(defn is-fizz [n i32] bool
|
|
(= 0 (% n 3)))
|
|
|
|
(defn main [] i32
|
|
(dotimes [i 15]
|
|
(let [n (+ i 1)]
|
|
(if (is-fizz n)
|
|
(print "fizz")
|
|
(print n))
|
|
(println "")))
|
|
0)
|