mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-07 20:12:27 +00:00
Code Issues 1 Releases Wiki Activity

Updare examples. Delete ugly iterator example.

Browse Source
This commit is contained in:
Calvin Rose
2018-11-26 22:09:12 -05:00
parent f860b950fc
commit ea4465f58e
5 changed files with 12 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
examples/fizzbuzz.janet
View File

@@ -1,13 +1,10 @@
# 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)))))
(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)))