Data commit

Task/FizzBuzz/REBOL/fizzbuzz-1.rebol

@@ -0,0 +1,18 @@
+REBOL [
+	Title: "FizzBuzz"
+	URL: http://rosettacode.org/wiki/FizzBuzz
+]
+
+; Concatenative. Note use of 'case/all' construct to evaluate all
+; conditions. I use 'copy' to allocate a new string each time through
+; the loop -- otherwise 'x' would get very long...
+
+repeat i 100 [
+	x: copy ""
+	case/all [
+		0 = mod i 3 [append x "Fizz"]
+		0 = mod i 5 [append x "Buzz"]
+		"" = x      [x: mold i]
+	]
+	print x
+]

Task/FizzBuzz/REBOL/fizzbuzz-2.rebol

@@ -0,0 +1,7 @@
+repeat i 100 [
+    print switch/default 0 compose [
+        (mod i 15) ["fizzbuzz"]
+        (mod i 3)  ["fizz"]
+        (mod i 5)  ["buzz"]
+    ][i]
+]

Task/FizzBuzz/REBOL/fizzbuzz-3.rebol

@@ -0,0 +1 @@
+repeat i 100[j:""if i // 3 = 0[j:"fizz"]if i // 5 = 0[j: join j"buzz"]if""= j[j: i]print j]

Task/FizzBuzz/REBOL/fizzbuzz-4.rebol

@@ -0,0 +1,4 @@
+m: func [i d] [0 = mod i d]
+spick: func [t x y][either any [not t  "" = t][y][x]]
+zz: func [i] [rejoin [spick m i 3 "Fizz" ""  spick m i 5 "Buzz" ""]]
+repeat i 100 [print spick z: zz i z i]