RosettaCodeData/Task/Integer-comparison/Forth/integer-comparison.fth

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 ;