Mercurial Mercurial > hg > stx-goodies-regression / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RegressionTests__IntegerTest.st
changeset 940 f0b195f99e55
parent 937 93ad4e077877
child 941 0192003475ec 
--- a/RegressionTests__IntegerTest.st	Fri May 24 20:08:09 2013 +0200
+++ b/RegressionTests__IntegerTest.st	Mon May 27 10:15:10 2013 +0200
@@ -1880,8 +1880,9 @@
 !
 
 testLargeDivision
-    |t v|
-
+    |t v a b|
+
+    "/ on a 64bit machine, this is actually a smallInteger!!
     t := 20 factorial.
 
     self assert:(t printString = '2432902008176640000').
@@ -1986,6 +1987,133 @@
     self assert:((10000 factorial // 9999 factorial) == 10000).
     self assert:((10000 factorial // 9999 factorial) == (10000 factorial / 9999 factorial)).
 
+    a := 40 factorial.
+    b := 39 factorial.
+    self assert:(a // 40 = b).
+    self assert:(a / 40 = b).
+    self assert:(a // b = 40).
+    self assert:(a // b = 40).
+
+    "
+     self basicNew testLargeDivision
+    "
+
+    "Modified: / 4.6.1999 / 23:54:57 / cg"
+!
+
+testLargeDivision2
+    |t|
+
+    t := 30 factorial.
+
+    self assert:(t printString = '265252859812191058636308480000000').
+    self assert:(t \\ 10 == 0).
+    t := t // 10.
+    self assert:(t printString = '26525285981219105863630848000000').
+    self assert:(t \\ 10 == 0).
+    t := t // 10.
+    self assert:(t printString = '2652528598121910586363084800000').
+    self assert:(t \\ 10 == 0).
+    t := t // 10.
+    self assert:(t printString = '265252859812191058636308480000').
+    self assert:(t \\ 10 == 0).
+    t := t // 10.
+    self assert:(t printString = '26525285981219105863630848000').
+    self assert:(t \\ 10 == 0).
+    t := t // 10.
+    self assert:(t printString = '2652528598121910586363084800').
+    self assert:(t \\ 10 == 0).
+    t := t // 10.
+    self assert:(t printString = '265252859812191058636308480').
+    self assert:(t \\ 10 == 0).
+    t := t // 10.
+    self assert:(t printString = '26525285981219105863630848').
+    self assert:(t \\ 10 == 8).
+    t := t // 10.
+    self assert:(t printString = '2652528598121910586363084').
+    self assert:(t \\ 10 == 4).
+    t := t // 10.
+    self assert:(t printString = '265252859812191058636308').
+    self assert:(t \\ 10 == 8).
+    t := t // 10.
+    self assert:(t printString = '26525285981219105863630').
+    self assert:(t \\ 10 == 0).
+    t := t // 10.
+    self assert:(t printString = '2652528598121910586363').
+    self assert:(t \\ 10 == 3).
+
+
+    t := 30 factorial.
+
+    self assert:(t printString = '265252859812191058636308480000000').
+    self assert:(t \\ 1000 == 0).
+    t := t // 1000.
+    self assert:(t printString = '265252859812191058636308480000').
+    self assert:(t \\ 1000 == 0).
+    t := t // 1000.
+    self assert:(t printString = '265252859812191058636308480').
+    self assert:(t \\ 1000 == 480).
+    t := t // 1000.
+    self assert:(t printString = '265252859812191058636308').
+    self assert:(t \\ 1000 == 308).
+    t := t // 1000.
+    self assert:(t printString = '265252859812191058636').
+    self assert:(t \\ 1000 == 636).
+    t := t // 1000.
+    self assert:(t printString = '265252859812191058').
+    self assert:(t \\ 1000 == 058).
+    t := t // 1000.
+    self assert:(t printString = '265252859812191').
+    self assert:(t \\ 1000 == 191).
+    t := t // 1000.
+    self assert:(t printString = '265252859812').
+    self assert:(t \\ 1000 == 812).
+    t := t // 1000.
+    self assert:(t printString = '265252859').
+    self assert:(t \\ 1000 == 859).
+    t := t // 1000.
+    self assert:(t printString = '265252').
+    self assert:(t \\ 1000 == 252).
+    t := t // 1000.
+    self assert:(t == 265).
+
+
+    t := 30 factorial.
+
+    "Large // SmallInt division"
+    t := t // 30.
+    self assert:(t printString = 29 factorial printString).
+    t := t // 29.
+    self assert:(t printString = 28 factorial printString).
+    t := t // 28.
+    self assert:(t printString = 27 factorial printString).
+    t := t // 27.
+    self assert:(t printString = 26 factorial printString).
+    t := t // 26.
+    self assert:(t printString = 25 factorial printString).
+    t := t // 25.
+    self assert:(t printString = 24 factorial printString).
+    t := t // 24.
+    self assert:(t printString = 23 factorial printString).
+    t := t // 23.
+    self assert:(t printString = 22 factorial printString).
+    t := t // 22.
+    self assert:(t printString = 21 factorial printString).
+    t := t // 21.
+    self assert:(t printString = 20 factorial printString).
+    self assert:(t = 20 factorial).
+
+    t := 30 factorial.
+    t := t + 31 factorial.
+    t absSubtract:31 factorial.
+    self assert:(t compressed = 30 factorial).
+
+    "Large // Large division"
+    self assert:((30 factorial // 29 factorial) == 30).
+    self assert:((30 factorial * 31 // 30 // 31) = (29 factorial)).
+    self assert:((10000 factorial // 9999 factorial) == 10000).
+    self assert:((10000 factorial // 9999 factorial) == (10000 factorial / 9999 factorial)).
+
     "
      self basicNew testLargeDivision
     "
@@ -1994,34 +2122,103 @@
 !
 
 testLargeIntegerHelpers
-    |t1 t2 t|
-
-    "mul2"
+    |t1 t2|
+
+    "/ mul2
 
     t1 := 16r12345678901234567890.
     t2 := t1 deepCopy.
-    self assert:(t1 mul2 = (t2 * 2)).
+    self assert:(t2 mul2 = (t1 * 2)).
 
     t1 := 16r1234567890123456789012345678901234567890.
     t2 := t1 deepCopy.
-    self assert:(t1 mul2 = (t2 * 2)).
+    self assert:(t2 mul2 = (t1 * 2)).
 
     t1 := 16r123456789012345678901234567890123456789012345678901234567890.
     t2 := t1 deepCopy.
-    self assert:(t1 mul2 = (t2 * 2)).
+    self assert:(t2 mul2 = (t1 * 2)).
 
     t1 := 16r12345678901234567890123456789012345678901234567890123456789012345678901234567890.
     t2 := t1 deepCopy.
-    self assert:(t1 mul2 = (t2 * 2)).
+    self assert:(t2 mul2 = (t1 * 2)).
 
     t1 := 10000 factorial.
     t2 := t1 deepCopy.
-    self assert:(t1 mul2 = (t2 * 2)).
+    self assert:(t2 mul2 = (t1 * 2)).
+
+    t1 := 16r123456789012345678901234567890123456789012345678901234567890.
+    t2 := t1 deepCopy.
+    self assert:(t2 mul2 = (t1 * 2)).
 
 "/    t1 := 1000 factorial.
 "/    t := Time millisecondsToRun:[ 100000 timesRepeat:[ t1 mul2. ] ].
 "/    Transcript showCR:t.
 
+    "/ div2
+
+    t1 := 16r12345678901234567890.
+    t2 := t1 deepCopy.
+
+    t2 div2.
+    "/ do not compare t2 = t1 // x, because t2 may be unnormalized
+    self assert:(t2 printStringRadix:16) = ((t1 // 2) printStringRadix:16).
+
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 4) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 8) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 16) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 32) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 64) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 128) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 256) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 512) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 1024) printStringRadix:16).
+
+    t1 := 16r1234567890123456789012345678901234567890.
+    t2 := t1 deepCopy.
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 2) printStringRadix:16).
+
+    t1 := 16r123456789012345678901234567890123456789012345678901234567890.
+    t2 := t1 deepCopy.
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 2) printStringRadix:16).
+
+    t1 := 16r12345678901234567890123456789012345678901234567890123456789012345678901234567890.
+    t2 := t1 deepCopy.
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 2) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 4) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 8) printStringRadix:16).
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 16) printStringRadix:16).
+
+    t1 := 10000 factorial.
+    t2 := t1 deepCopy.
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 2) printStringRadix:16).
+
+    t1 := 16r123456789012345678901234567890123456789012345678901234567890.
+    t2 := t1 deepCopy.
+    t2 div2.
+    self assert:(t2 printStringRadix:16) = ((t1 // 2) printStringRadix:16).
+
+    t1 := 12345678901234567890.
+    t2 := t1 divMod:1000.
+    self assert:(t2 at:1) = 12345678901234567.
+    self assert:(t2 at:2) = 890.
+
+    
     "
      self basicNew testLargeIntegerHelpers
     "
@@ -2030,7 +2227,7 @@
 !
 
 testLargeMultiplication
-    |t1|
+    |t1 t2|
 
     "multiplication"
     t1 := 100.
@@ -2087,6 +2284,86 @@
     self assert:(100 factorial printString = '93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000').
     self assert:(1000 factorial printString = '402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000').
 
+    t1 := 100000000.                            "/ small
+    t2 := 100000000000000000.                   "/ large on 32bit; small on 64bt machines
+    self assert:(t1 * t2) = 10000000000000000000000000.
+    self assert:(t2 * t1) = 10000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 1000000000000000000.                  "/ large on 32bit; small on 64bt machines
+    self assert:(t1 * t2) = 100000000000000000000000000.
+    self assert:(t2 * t1) = 100000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 10000000000000000000.                 "/ large
+    self assert:(t1 * t2) = 1000000000000000000000000000.
+    self assert:(t2 * t1) = 1000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 100000000000000000000.                "/ large
+    self assert:(t1 * t2) = 10000000000000000000000000000.
+    self assert:(t2 * t1) = 10000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 1000000000000000000000.               "/ large
+    self assert:(t1 * t2) = 100000000000000000000000000000.
+    self assert:(t2 * t1) = 100000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 10000000000000000000000.              "/ large
+    self assert:(t1 * t2) = 1000000000000000000000000000000.
+    self assert:(t2 * t1) = 1000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 100000000000000000000000.             "/ large
+    self assert:(t1 * t2) = 10000000000000000000000000000000.
+    self assert:(t2 * t1) = 10000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 1000000000000000000000000.            "/ large
+    self assert:(t1 * t2) = 100000000000000000000000000000000.
+    self assert:(t2 * t1) = 100000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 10000000000000000000000000.           "/ large
+    self assert:(t1 * t2) = 1000000000000000000000000000000000.
+    self assert:(t2 * t1) = 1000000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 100000000000000000000000000.          "/ large
+    self assert:(t1 * t2) = 10000000000000000000000000000000000.
+    self assert:(t2 * t1) = 10000000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 1000000000000000000000000000.         "/ large
+    self assert:(t1 * t2) = 100000000000000000000000000000000000.
+    self assert:(t2 * t1) = 100000000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 10000000000000000000000000000.        "/ large
+    self assert:(t1 * t2) = 1000000000000000000000000000000000000.
+    self assert:(t2 * t1) = 1000000000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 100000000000000000000000000000.       "/ large
+    self assert:(t1 * t2) = 10000000000000000000000000000000000000.
+    self assert:(t2 * t1) = 10000000000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 1000000000000000000000000000000.      "/ large
+    self assert:(t1 * t2) = 100000000000000000000000000000000000000.
+    self assert:(t2 * t1) = 100000000000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 10000000000000000000000000000000.     "/ large
+    self assert:(t1 * t2) = 1000000000000000000000000000000000000000.
+    self assert:(t2 * t1) = 1000000000000000000000000000000000000000.
+
+    t1 := 100000000.                            "/ small
+    t2 := 100000000000000000000000000000000.    "/ large
+    self assert:(t1 * t2) = 10000000000000000000000000000000000000000.
+    self assert:(t2 * t1) = 10000000000000000000000000000000000000000.
+
     "Large * Large multiplication"
     self assert:((16r3FFF * 16r3FFF) hexPrintString = 'FFF8001').
     self assert:((16r7FFF * 16r7FFF) hexPrintString = '3FFF0001').
@@ -2102,6 +2379,52 @@
     self assert:((16rFFFFFFFFFF * 16rFFFFFFFFFF) hexPrintString = 'FFFFFFFFFE0000000001').
     self assert:((20 factorial * 20 factorial) printString = '5919012181389927685417441689600000000').
 
+    #( 
+        16rFF
+        16rFFFF
+        16rFFFFFF
+        16rFFFFFFFF
+        16rFFFFFFFFFF
+        16rFFFFFFFFFFFF
+        16rFFFFFFFFFFFFFF
+        16rFFFFFFFFFFFFFFFF
+        16rFFFFFFFFFFFFFFFFFF
+        16rFFFFFFFFFFFFFFFFFFFF
+        16rFFFFFFFFFFFFFFFFFFFFFF
+        16rFFFFFFFFFFFFFFFFFFFFFFFF
+    ) do:[:eachFactor1 |
+        #( 
+            16rFF
+            16rFFFF
+            16rFFFFFF
+            16rFFFFFFFF
+            16rFFFFFFFFFF
+            16rFFFFFFFFFFFF
+            16rFFFFFFFFFFFFFF
+            16rFFFFFFFFFFFFFFFF
+            16rFFFFFFFFFFFFFFFFFF
+            16rFFFFFFFFFFFFFFFFFFFF
+            16rFFFFFFFFFFFFFFFFFFFFFF
+            16rFFFFFFFFFFFFFFFFFFFFFFFF
+        ) do:[:eachFactor2 |
+            |results|
+
+            t1 := (eachFactor1 * eachFactor2).
+            t2 := (eachFactor2 * eachFactor1).
+        
+            self assert:(t1 = t2).
+t1 = 20203181441155852828228393631745 ifTrue:[
+ eachFactor1 = 1099511627775 ifTrue:[
+self halt
+]].
+
+            self assert:(t1 / eachFactor1) = eachFactor2.
+            self assert:(t1 / eachFactor2) = eachFactor1.
+
+            self assert: t1 = (eachFactor1 asLargeInteger * eachFactor2 asLargeInteger).
+        ].
+    ].
+    
     "
      self basicNew testLargeMultiplication
     "
@@ -2154,6 +2477,10 @@
     "largeInteger - smallInteger"
     self assert:(-2000000000 - -1000000000 = -1000000000).
 
+    a := 40 factorial.
+    b := 39 factorial.
+    self assert:(a - b + b = a).
+
     "
      self basicNew testLargeSubtraction1
     "
hg/stx-goodies-regression