9 lines
No EOL
185 B
Text
9 lines
No EOL
185 B
Text
fun f (x) =
|
|
if (x >? 0) then { "KO" }
|
|
else { if (x <? 0) then { "KO" }
|
|
else { "OK" } }
|
|
|
|
let test =
|
|
print_string ("This test is ");
|
|
print_string (f (0));
|
|
print_string (".\n") |