14 lines
290 B
Factor
14 lines
290 B
Factor
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
|
|
[ -3 ] [ "x" pred@ "x" get ] unit-test
|
|
[ -2 ] [ "x" succ@ "x" get ] unit-test
|