17 lines
387 B
Plaintext
17 lines
387 B
Plaintext
fun KtoC n = n - 273.15;
|
|
fun KtoF n = n * 1.8 - 459.67;
|
|
fun KtoR n = n * 1.8;
|
|
val K = argv 0;
|
|
|
|
if K = false then
|
|
println "mlite -f temcon.m <temp>"
|
|
else
|
|
let
|
|
val K = ston K
|
|
in
|
|
print "Kelvin: "; println K;
|
|
print "Celcius: "; println ` KtoC K;
|
|
print "Fahrenheit: "; println ` KtoF K;
|
|
print "Rankine: "; println ` KtoR K
|
|
end
|