2004-08-25 20:51:19 -04:00
|
|
|
IN: scratchpad
|
|
|
|
USE: stack
|
2004-08-26 22:21:17 -04:00
|
|
|
USE: math
|
2004-08-25 20:51:19 -04:00
|
|
|
USE: test
|
|
|
|
USE: unparser
|
|
|
|
|
|
|
|
[ -1 ] [ -1 >bignum >fixnum ] unit-test
|
|
|
|
|
|
|
|
[ "8589934592" ]
|
|
|
|
[ 134217728 dup + dup + dup + dup + dup + dup + unparse ]
|
|
|
|
unit-test
|
2004-08-26 19:37:22 -04:00
|
|
|
|
2004-08-26 22:21:17 -04:00
|
|
|
[ 268435456 ] [ -268435456 >fixnum -1 / ] unit-test
|
|
|
|
[ 268435456 ] [ -268435456 >fixnum -1 /i ] unit-test
|
|
|
|
[ 268435456 0 ] [ -268435456 >fixnum -1 /mod ] unit-test
|
|
|
|
[ 1/268435456 ] [ -1 -268435456 >fixnum / ] unit-test
|
|
|
|
[ 0 ] [ -1 -268435456 >fixnum /i ] unit-test
|
|
|
|
[ 0 -1 ] [ -1 -268435456 >fixnum /mod ] unit-test
|
2004-08-26 23:05:48 -04:00
|
|
|
[ 14355 ] [ 1591517158873146351817850880000000 32769 mod ] unit-test
|