10 lines
230 B
Text
10 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
|