4 lines
151 B
Forth
4 lines
151 B
Forth
: compare-integers ( a b -- )
|
|
2dup < if ." a is less than b" then
|
|
2dup > if ." a is greater than b" then
|
|
= if ." a is equal to b" then ;
|