Initial data commit

Task/FizzBuzz/Scheme/fizzbuzz-1.ss

@@ -0,0 +1,8 @@
+(do ((i 1 (+ i 1)))
+    ((> i 100))
+    (display
+      (cond ((= 0 (modulo i 15)) "FizzBuzz")
+            ((= 0 (modulo i 3))  "Fizz")
+            ((= 0 (modulo i 5))  "Buzz")
+            (else                i)))
+    (newline))

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)

Task/FizzBuzz/Scheme/fizzbuzz-3.ss

@@ -0,0 +1,9 @@
+(define (fizzbuzz x)
+  (let ([words '((3 . "Fizz")
+                 (5 . "Buzz"))])
+    (define (fbm x)
+      (let ([w (map cdr (filter (lambda (wo) (= 0 (modulo x (car wo)))) words))])
+        (if (null? w) x (apply string-append w))))
+    (for-each (cut format #t "~a~%" <>) (map fbm (iota x 1 1)))))
+
+(fizzbuzz 15)