20 lines
569 B
Factor
20 lines
569 B
Factor
IN: scratchpad
|
|
USE: math
|
|
USE: test
|
|
USE: unparser
|
|
USE: kernel
|
|
|
|
[ -1 ] [ -1 >bignum >fixnum ] unit-test
|
|
|
|
[ "8589934592" ]
|
|
[ 134217728 dup + dup + dup + dup + dup + dup + unparse ]
|
|
unit-test
|
|
|
|
[ 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
|