5 lines
151 B
Forth
5 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 ;
|