factor/library/test/math/bignum.factor

20 lines
568 B
Factor
Raw Normal View History

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
[ 14355 ] [ 1591517158873146351817850880000000 32769 mod ] unit-test