Integer comparison: Difference between revisions

No edit summary
Line 196:
 
: compare-integers ( a b -- )
2dup < if ." a is less than b" 2drop exit then
2dup > if ." a is greathergreater than b" exit then
= if ." a is equal to b" then ;
 
=={{header|Fortran}}==
Anonymous user