flan/test/programs/x86-p3-fizz.flan

12 lines
188 B
Plaintext

(defn fizz? [n i32] bool
(= 0 (% n 3)))
(defn main [] i32
(dotimes [i 15]
(let [n (+ i 1)]
(if (fizz? n)
(print "fizz")
(print n))
(println "")))
0)