--- a/Integer.st Thu May 02 10:51:36 2002 +0200
+++ b/Integer.st Thu May 02 10:57:11 2002 +0200
@@ -1662,14 +1662,14 @@
a2 := 0.
an := 0.
self timesRepeat:[
- an := a1 + a2.
- a2 := a1.
- a1 := an
+ an := a1 + a2.
+ a2 := a1.
+ a1 := an
].
^ an
"
- Transcript showCR:(Time millisecondsToRun:[30 fib])
+ Transcript showCR:(Time millisecondsToRun:[30 fib])
Transcript showCR:(Time millisecondsToRun:[30 recursiveFib])
Transcript showCR:(Time millisecondsToRun:[60 fib])
Transcript showCR:(Time millisecondsToRun:[200 fib])
@@ -2263,6 +2263,7 @@
31 printOn:Transcript base:3
-20 printOn:Transcript base:16
-20 printOn:Transcript base:10
+ Time millisecondsToRun:[10000 factorial printString] 7650
"
"Modified: / 20.1.1998 / 18:05:02 / stefan"
@@ -2762,6 +2763,6 @@
!Integer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.144 2002-03-28 11:02:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.145 2002-05-02 08:57:11 cg Exp $'
! !
Integer initialize!