Integer comparison: Difference between revisions
Content added Content deleted
No edit summary |
(added ocaml) |
||
Line 289: | Line 289: | ||
else if a > b then print "a is greater then b" |
else if a > b then print "a is greater then b" |
||
else if a == b then print "a is equal to b" |
else if a == b then print "a is equal to b" |
||
=={{header|OCaml}}== |
|||
let my_compare a b = |
|||
if a < b then "A is less than B" |
|||
else if a > b then "A is greater than B" |
|||
else if a = b then "A equals B" |
|||
else assert false (* can't happen *) |
|||
let () = |
|||
let a = read_int () |
|||
and b = read_int () in |
|||
print_endline (my_compare a b) |
|||
=={{header|Pascal}}== |
=={{header|Pascal}}== |