2455 |
2455 |
2456 testLargeMultiplicationHelpers1 |
2456 testLargeMultiplicationHelpers1 |
2457 |t1 t2 r| |
2457 |t1 t2 r| |
2458 |
2458 |
2459 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
2459 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
|
2460 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 0 0 0 0]. |
|
2461 r := t1 absMul:t2. |
|
2462 self assert:(r hexPrintString = 'FFFFFFFEFFFFFFFF00000001'). |
|
2463 |
|
2464 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
2460 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 0 0 0]. |
2465 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 0 0 0]. |
2461 r := t1 absMul:t2. |
2466 r := t1 absMul:t2. |
|
2467 self assert:(r printString = '20282409603633223678774030106625'). |
2462 self assert:(r hexPrintString = 'FFFFFFFFFEFFFFFF0000000001'). |
2468 self assert:(r hexPrintString = 'FFFFFFFFFEFFFFFF0000000001'). |
2463 |
2469 |
2464 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
2470 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
2465 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 0 0]. |
2471 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 0 0]. |
2466 r := t1 absMul:t2. |
2472 r := t1 absMul:t2. |
|
2473 self assert:(r printString = '5192296858534809181504947642957825'). |
|
2474 self assert:(r hexPrintString = 'FFFF00000000FFFEFF0000000001'). |
|
2475 |
|
2476 t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF]. |
|
2477 t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 0]. |
|
2478 r := t1 absMul:t2. |
|
2479 self assert:(r printString = '1329227995784915854385005392532865025'). |
2467 self assert:(r hexPrintString = 'FFFFFFFFFFFEFFFF000000000001'). |
2480 self assert:(r hexPrintString = 'FFFFFFFFFFFEFFFF000000000001'). |
2468 |
2481 |
2469 " |
2482 " |
2470 self basicNew testLargeMultiplicationHelpers1 |
2483 self basicNew testLargeMultiplicationHelpers1 |
2471 " |
2484 " |