2004-10-06 23:34:22 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: namespaces
|
|
|
|
|
USE: test
|
|
|
|
|
USE: math
|
|
|
|
|
|
|
|
|
|
5 "x" set
|
|
|
|
|
|
|
|
|
|
[ 6 ] [ 1 "x" +@ "x" get ] unit-test
|
|
|
|
|
[ 5 ] [ 1 "x" -@ "x" get ] unit-test
|
|
|
|
|
[ 10 ] [ 2 "x" *@ "x" get ] unit-test
|
|
|
|
|
[ 2 ] [ 5 "x" /@ "x" get ] unit-test
|
2004-10-27 21:21:31 -04:00
|
|
|
[ 1 ] [ "x" pred@ "x" get ] unit-test
|
|
|
|
|
[ 2 ] [ "x" succ@ "x" get ] unit-test
|
2004-11-09 22:19:43 -05:00
|
|
|
[ 7 ] [ -3 "x" set 10 "x" rem@ "x" get ] unit-test
|
|
|
|
|
[ -3 ] [ -3 "x" set 10 "x" mod@ "x" get ] unit-test
|
