11 lines
321 B
Text
11 lines
321 B
Text
(var K->C (+ -273.15))
|
|
(var K->R (* 1.8))
|
|
(var K->F (comp K->R (+ -459.67)))
|
|
|
|
(function kelvin-conversions K
|
|
(let [C R F] ((juxt K->C K->R K->F) K)
|
|
[C R F] (map @(round 2) [C R F]))
|
|
(print "{K} K / {C} °C / {R} °R / {F} °F"))
|
|
|
|
(kelvin-conversions 21.0)
|
|
;prints "21 K / -252.15 °C / 37.8 °R / -421.87 °F"
|