langs a-z

Task/FizzBuzz/REBOL/fizzbuzz-1.rebol

@@ -0,0 +1 @@
+repeat i 100 [case/all [i // 3 = 0 [print"fizz"] i // 5 = 0 [print "buzz"] 1 [print i]]]

Task/FizzBuzz/REBOL/fizzbuzz-2.rebol

@@ -0,0 +1,20 @@
+REBOL [
+	Title: "FizzBuzz"
+	Author: oofoe
+	Date: 2009-12-10
+	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-3.rebol

@@ -0,0 +1,11 @@
+repeat i 100 [
+    print switch/default 0 compose [
+        (mod i 15) ["fizzbuzz"]
+        (mod i 3)  ["fizz"]
+        (mod i 5)  ["buzz"]
+    ][i]
+]
+
+; And minimized version:
+
+repeat i 100[j:""if 0 = mod i 3[j:"fizz"]if 0 = mod i 5[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]