6 lines
145 B
Text
6 lines
145 B
Text
(
|
|
((float) (273.15 -) (9 5 / * 459.67 -) (9 5 / *)) cleave
|
|
() 'cons 4 times "K $1\nC $2\nF $3\nR $4" swap % puts!
|
|
) :convert
|
|
|
|
21 convert
|