Integer comparison: Difference between revisions

Content added Content deleted

Inline

@@ Line 196: / Line 196: @@
  : compare-integers ( a b -- )
-dup < if ." a is less than b" then
+dup < if ." a is less than b"    2drop exit then
-dup > if ." a is greather than b" then
+         > if ." a is greater than b"       exit then
-         = if ." a is equal to b" then ;
+              ." a is equal to b" ;
 =={{header|Fortran}}==