- ;; mht created on Nov 8, 2011
-
-
;; Fahrenheit-Celsius : number -> number
-
;; to translate Fahrenheit to Celsius
-
;; example : (Fahrenheit-Celsius 100) should produce 37
-
(define (Fahrenheit->Celsius fah)
-
(* (/ 5 9) (- fah 32)))
-
-
;; test
-
(= (Fahrenheit->Celsius 32) 0)
-
-
;(convert-gui Fahrenheit->Celsius)
-
-
;(convert-repl Fahrenheit->Celsius)
-
- (convert-file "in.dat" Fahrenheit->Celsius "out.dat")
