wisp
 
(drak)
2014-03-19: added fizzbuzz.

added fizzbuzz.

diff --git a/examples/fizzbuzz.w b/examples/fizzbuzz.w
new file mode 100755
--- /dev/null
+++ b/examples/fizzbuzz.w
@@ -0,0 +1,24 @@
+#!./wisp-multiline.sh
+; !#
+
+;; this example needs foof-loop installed via guildhall!
+use-modules : guildhall ext foof-loop
+;; Pseudocode adapted from 
+;; http://en.wikipedia.org/wiki/Pseudocode#Syntax
+define : divisible? number divisor
+         = 0 : modulo number divisor
+
+define : fizzbuzz
+  let : : print_number #f
+    loop : : for i : up-from 1 : to 100
+        set! print_number #t
+        when : divisible? i 3
+            display "Fizz"
+            set! print_number #f
+        when : divisible? i 5
+            display "Buzz"
+            set! print_number #f;
+        when print_number : display i
+        newline
+
+fizzbuzz