Data commit

Task/FizzBuzz/Smalltalk/fizzbuzz-1.st

@@ -0,0 +1,9 @@
+Integer extend [
+    fizzbuzz [
+        | fb |
+        fb := '%<Fizz|>1%<Buzz|>2' % {
+            self \\ 3 == 0.  self \\ 5 == 0 }.
+        ^fb isEmpty ifTrue: [ self ] ifFalse: [ fb ]
+    ]
+]
+1 to: 100 do: [ :i | i fizzbuzz displayNl ]

Task/FizzBuzz/Smalltalk/fizzbuzz-2.st

@@ -0,0 +1,9 @@
+(1 to: 100) do:
+	[:n |
+		((n \\ 3)*(n \\ 5)) isZero
+                        ifFalse: [Transcript show: n].
+		(n \\ 3) isZero
+			ifTrue: [Transcript show: 'Fizz'].
+		(n \\ 5) isZero
+			ifTrue: [Transcript show: 'Buzz'].
+		Transcript cr.]

Task/FizzBuzz/Smalltalk/fizzbuzz-3.st

@@ -0,0 +1,8 @@
+fizzbuzz := Dictionary with: #(true true)->'FizzBuzz'
+                       with: #(true false)->'Fizz'
+                       with: #(false true)->'Buzz'.
+
+1 to: 100 do:
+	[ :i | Transcript show:
+               (fizzbuzz at: {i isDivisibleBy: 3. i isDivisibleBy: 5}
+		         ifAbsent: [ i ]); cr]

Task/FizzBuzz/Smalltalk/fizzbuzz-4.st

@@ -0,0 +1,10 @@
+1 to: 100 do: [:n | |r|
+	r := n rem: 15.
+	Transcript show: (r isZero
+	   ifTrue:['fizzbuzz']
+	   ifFalse: [(#(3 6 9 12) includes: r)
+		ifTrue:['fizz']
+		ifFalse:[((#(5 10) includes: r))
+			ifTrue:['buzz']
+			ifFalse:[n]]]);
+	cr].

Task/FizzBuzz/Smalltalk/fizzbuzz-5.st

@@ -0,0 +1,5 @@
+fbz := (1 to: 100) asOrderedCollection.
+ 3 to: 100 by:  3 do: [:i | fbz at: i put: 'Fizz'].
+ 5 to: 100 by:  5 do: [:i | fbz at: i put: 'Buzz'].
+15 to: 100 by: 15 do: [:i | fbz at: i put: 'FizzBuzz'].
+fbz do: [:i | Transcript show: i; cr].

Task/FizzBuzz/Smalltalk/fizzbuzz-6.st

@@ -0,0 +1,5 @@
+1 to: 100 do: [:i | |fb s|
+	fb := {i isDivisibleBy: 3. i isDivisibleBy: 5. nil}.
+	fb at: 3 put: (fb first | fb second) not.
+	s := '<1?Fizz:><2?Buzz:><3?{1}:>' format: {i printString}.
+	Transcript show: (s expandMacrosWithArguments: fb); cr].