10 lines
257 B
Standard ML
10 lines
257 B
Standard ML
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 "cannot compare NANs"
|
|
|
|
let () =
|
|
let a = read_int ()
|
|
and b = read_int () in
|
|
print_endline (my_compare a b)
|