mirror of
https://github.com/janet-lang/janet
synced 2024-12-24 23:40:27 +00:00
14 lines
310 B
Plaintext
14 lines
310 B
Plaintext
# A simple fizz buzz example
|
|
|
|
(defn fizzbuzz
|
|
"Prints the fizzbuzz problem."
|
|
[]
|
|
(loop [i :range [1 101]]
|
|
(let [fizz (zero? (% i 3))
|
|
buzz (zero? (% i 5))]
|
|
(print (cond
|
|
(and fizz buzz) "fizzbuzz"
|
|
fizz "fizz"
|
|
buzz "buzz"
|
|
i)))))
|