mirror of
https://github.com/janet-lang/janet
synced 2024-11-18 14:44:48 +00:00
14 lines
263 B
Plaintext
14 lines
263 B
Plaintext
|
# A simple fizz buzz example
|
||
|
|
|
||
|
|
(defn fizzbuzz
|
||
|
|
"Prints the fizzbuzz problem."
|
||
|
|
[]
|
||
|
|
(for [i 1 101]
|
||
|
|
(let [fizz (zero? (% i 3))
|
||
|
|
buzz (zero? (% i 5))]
|
||
|
|
(print (cond
|
||
|
|
(and fizz buzz) "fizzbuzz"
|
||
|
|
fizz "fizz"
|
||
|
|
buzz "buzz"
|
||
|
|
i)))))
|