Data commit

Task/Temperature-conversion/NewLISP/temperature-conversion.l

@@ -0,0 +1,21 @@
+(define (to-celsius k)
+    (- k 273.15)
+)
+
+(define (to-fahrenheit k)
+    (- (* k 1.8) 459.67)
+)
+
+(define (to-rankine k)
+    (* k 1.8)
+)
+
+(define (kelvinConversion k)
+    (if (number? k)
+        (println k " kelvin is equivalent to:\n"
+            (to-celsius k) " celsius\n"
+            (to-fahrenheit k) " fahrenheit\n"
+            (to-rankine k) " rankine")
+        (println "Please enter a number only, with no º or letter. ")
+    )
+)