Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 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