(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