equal
deleted
inserted
replaced
2234 self assert:(t1 * t1 == 10000). |
2234 self assert:(t1 * t1 == 10000). |
2235 self assert:((t1 perform:'*' asSymbol with:t1) == 10000). |
2235 self assert:((t1 perform:'*' asSymbol with:t1) == 10000). |
2236 self assert:((t1 * t1) printString = '10000'). |
2236 self assert:((t1 * t1) printString = '10000'). |
2237 self assert:((t1 perform:'*' asSymbol with:t1) printString = '10000'). |
2237 self assert:((t1 perform:'*' asSymbol with:t1) printString = '10000'). |
2238 |
2238 |
2239 t1 := 1000. |
2239 t1 := 1000. |
2240 self assert:(t1 * t1 == 1000000). |
2240 self assert:(t1 * t1 == 1000000). |
2241 self assert:((t1 perform:'*' asSymbol with:t1) == 1000000). |
2241 self assert:((t1 perform:'*' asSymbol with:t1) == 1000000). |
2242 self assert:((t1 * t1) printString = '1000000'). |
2242 self assert:((t1 * t1) printString = '1000000'). |
2243 self assert:((t1 perform:'*' asSymbol with:t1) printString = '1000000'). |
2243 self assert:((t1 perform:'*' asSymbol with:t1) printString = '1000000'). |
2244 |
2244 |
2464 |
2464 |
2465 t1 := LargeInteger digitBytes:#[ 16r00 16rE1 16rF5 16r05 ]. |
2465 t1 := LargeInteger digitBytes:#[ 16r00 16rE1 16rF5 16r05 ]. |
2466 t2 := LargeInteger digitBytes:#[ 16r00 16r00 16rA0 16rDE 16rC5 16rAD 16rC9 16r35 16r36]. |
2466 t2 := LargeInteger digitBytes:#[ 16r00 16r00 16rA0 16rDE 16rC5 16rAD 16rC9 16r35 16r36]. |
2467 r := t1 absMul:t2. |
2467 r := t1 absMul:t2. |
2468 self assert:(r printString = '100000000000000000000000000000'). |
2468 self assert:(r printString = '100000000000000000000000000000'). |
2469 self assert:(r hexPrintString = 'C9F2C9CD04674EDEA40000000'). |
2469 self assert:(r hexPrintString = '1431E0FAE6D7217CAA0000000'). |
2470 |
2470 |
2471 "/ ----- |
2471 "/ ----- |
2472 |
2472 |
2473 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
2473 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
2474 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 0 0 0 0]. |
2474 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 0 0 0 0]. |
2495 |
2495 |
2496 " |
2496 " |
2497 self basicNew testLargeMultiplicationHelpers1 |
2497 self basicNew testLargeMultiplicationHelpers1 |
2498 " |
2498 " |
2499 |
2499 |
2500 "Modified: / 02-12-2013 / 18:33:33 / cg" |
2500 "Modified: / 02-12-2013 / 18:48:00 / cg" |
2501 ! |
2501 ! |
2502 |
2502 |
2503 testLargeMultiplicationHelpers2 |
2503 testLargeMultiplicationHelpers2 |
2504 |t1 t2 r| |
2504 |t1 t2 r| |
2505 |
2505 |