while loops, comparisons, modulo, fizzbuzz

1 files changed, 10 insertions, 0 deletions

diff --git a/fizzbuzz.bþ b/fizzbuzz.bþ
new file mode 100644
index 0000000..e70c2c1
--- /dev/null
+++ b/fizzbuzz.bþ
@@ -0,0 +1,10 @@
+(do 
+ (set n 1)
+ (while (< n 30)
+        (print 
+         (if (= 0 (% n 5))
+             (if (= 0 (% n 3)) "fizzbuzz" "buzz")
+             (if (= 0 (% n 3)) "fizz" n)))
+        (set n (+ n 1))))
+
+