September Morn Update

Task/Factorial/Smalltalk/factorial-1.st

@@ -1,11 +1,10 @@
 Number extend [
   my_factorial [
-    (self < 2) ifTrue: [ ^1 ]
-               ifFalse: [ |c|
-                 c := OrderedCollection new.
-                 2 to: self do: [ :i | c add: i ].
-		 ^ (c fold: [ :a :b | a * b ] )
-               ]
+    (self < 2)
+        ifTrue: [ ^1 ]
+        ifFalse: [
+	    ^ (2 to: self) fold: [ :a :b | a * b ]
+        ]
   ]
 ].
 

Task/Factorial/Smalltalk/factorial-5.st

@@ -0,0 +1,3 @@
+fac := [:n | (1 to: n) product].
+fac value:40
+-> 815915283247897734345611269596115894272000000000