Just another update
This commit is contained in:
parent
a25938f123
commit
00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
|
|
@ -0,0 +1,12 @@
|
|||
(defn to-celsius [k]
|
||||
(- k 273.15))
|
||||
(defn to-fahrenheit [k]
|
||||
(- (* k 1.8) 459.67))
|
||||
(defn to-rankine [k]
|
||||
(* k 1.8))
|
||||
|
||||
(defn temperature-conversion [k]
|
||||
(if (number? k)
|
||||
(format "Celsius: %.2f Fahrenheit: %.2f Rankine: %.2f"
|
||||
(to-celsius k) (to-fahrenheit k) (to-rankine k))
|
||||
(format "Error: Non-numeric value entered.")))
|
||||
Loading…
Add table
Add a link
Reference in a new issue