--- a/Integer.st Sun Feb 07 21:59:11 2016 +0100
+++ b/Integer.st Mon Feb 08 10:25:19 2016 +0100
@@ -14,17 +14,17 @@
"{ NameSpace: Smalltalk }"
Number subclass:#Integer
- instanceVariableNames:''
- classVariableNames:'BCDConversionErrorSignal PrimeCache'
- poolDictionaries:''
- category:'Magnitude-Numbers'
+ instanceVariableNames:''
+ classVariableNames:'BCDConversionErrorSignal PrimeCache'
+ poolDictionaries:''
+ category:'Magnitude-Numbers'
!
Object subclass:#ModuloNumber
- instanceVariableNames:'modulus reciprocal shift'
- classVariableNames:''
- poolDictionaries:''
- privateIn:Integer
+ instanceVariableNames:'modulus reciprocal shift'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:Integer
!
!Integer class methodsFor:'documentation'!
@@ -3904,8 +3904,8 @@
nD := 5.
].
SmallInteger maxBits >= 63 ifTrue:[
- r := r*r. "/ radix^10 / radix^12 (chunks of 10/12 digits)
- nD := nD * 2.
+ r := r*r2. "/ radix^7 (chunks of 6 digits)
+ nD := nD + 2.
].
"get a Stream with space for the digits we are going to print.
@@ -3948,7 +3948,8 @@
31 printOn:Transcript base:2
-20 printOn:Transcript base:16
-20 printOn:Transcript base:10
- Time millisecondsToRun:[10000 factorial printString] 610 7650
+ Time millisecondsToRun:[10000 factorial printString]
+ '%012d' printf:{ (2 raisedTo:20) }
"
"Modified: / 20-01-1998 / 18:05:02 / stefan"