12 lines
387 B
Text
12 lines
387 B
Text
# Temperature conversion, in LIL
|
|
func kToc k {expr $k - 273.15}
|
|
func kTor k {expr $k / 5.0 * 9.0}
|
|
func kTof k {expr [kTor $k] - 469.67}
|
|
|
|
write "Enter kelvin temperatures or just enter to quit: "
|
|
for {set k [readline]} {![streq $k {}]} {set k [readline]} {
|
|
print "Kelvin: $k"
|
|
print "Celsius: [kToc $k]"
|
|
print "Fahrenheit: [kTof $k]"
|
|
print "Rankine: [kTor $k]"
|
|
}
|