Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/FizzBuzz/Scheme/fizzbuzz-1.ss
+++ b/Task/FizzBuzz/Scheme/fizzbuzz-1.ss
--- a/Task/FizzBuzz/Scheme/fizzbuzz-2.ss
+++ b/Task/FizzBuzz/Scheme/fizzbuzz-2.ss
@ -0,0 +1,10 @@
+(define (fizzbuzz x y)
+  (println
+    (cond (( = (modulo x 15) 0 ) "FizzBuzz")
+          (( = (modulo x 3) 0 ) "Fizz")
+          (( = (modulo x 5) 0 ) "Buzz")
+          (else x)))
+
+    (if (< x y) (fizzbuzz (+ x 1) y)))
+
+(fizzbuzz 1 100)