9 lines
230 B
Text
9 lines
230 B
Text
[ ( a b -- )
|
|
2dup < [ ." a is less than b\n" ] ifTrue
|
|
2dup > [ ." a is greater than b\n" ] ifTrue
|
|
= [ ." a is equal to b\n" ] ifTrue
|
|
] is compare-integers
|
|
|
|
1 1 compare-integers
|
|
2 1 compare-integers
|
|
1 2 compare-integers
|