Integer comparison: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 196: | Line 196: | ||
: compare-integers ( a b -- ) |
: compare-integers ( a b -- ) |
||
2dup < if ." a is less than b" then |
2dup < if ." a is less than b" 2drop exit then |
||
> if ." a is greater than b" exit then |
|||
." a is equal to b" ; |
|||
=={{header|Fortran}}== |
=={{header|Fortran}}== |