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 |
2457 |t1 t2 r| |
2457 |t1 t2 r| |
2458 |
2458 |
2459 t1 := LargeInteger digitBytes:#[ 16r00 16rE1 16rF5 16r05 ]. |
2459 t1 := LargeInteger digitBytes:#[ 16r00 16rE1 16rF5 16r05 ]. |
2460 t2 := LargeInteger digitBytes:#[ 16r00 16r00 16r40 16rB2 16rBA 16rC9 16rE0 16r19 16r1E 16r02]. |
2460 t2 := LargeInteger digitBytes:#[ 16r00 16r00 16r40 16rB2 16rBA 16rC9 16rE0 16r19 16r1E 16r02]. |
2461 r := t1 absMul:t2. |
2461 r := t1 absMul:t2. |
2462 self assert:(r hexPrintString = 'FFFFFFFEFFFFFFFF00000001'). |
2462 self assert:(r printString = '1000000000000000000000000000000'). |
|
2463 self assert:(r hexPrintString = 'C9F2C9CD04674EDEA40000000'). |
2463 |
2464 |
2464 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
2465 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
2465 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 0 0 0 0]. |
2466 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 0 0 0 0]. |
2466 r := t1 absMul:t2. |
2467 r := t1 absMul:t2. |
2467 self assert:(r hexPrintString = 'FFFFFFFEFFFFFFFF00000001'). |
2468 self assert:(r hexPrintString = 'FFFFFFFEFFFFFFFF00000001'). |
2486 |
2487 |
2487 " |
2488 " |
2488 self basicNew testLargeMultiplicationHelpers1 |
2489 self basicNew testLargeMultiplicationHelpers1 |
2489 " |
2490 " |
2490 |
2491 |
2491 "Modified: / 02-12-2013 / 17:37:09 / cg" |
2492 "Modified: / 02-12-2013 / 18:33:33 / cg" |
2492 ! |
2493 ! |
2493 |
2494 |
2494 testLargeMultiplicationHelpers2 |
2495 testLargeMultiplicationHelpers2 |
2495 |t1 t2 r| |
2496 |t1 t2 r| |
2496 |
2497 |