exam3.3.6

;; mht created on Nov 9, 2011

;; Fahrenheit-Celsius : number -> number
;; to convert Fahrenheit temperature to Celsius
;; example : (Fahrenheit-Celsius 100) should produce 37
(define (Fahrenheit-Celsius fah)
  (* (/ 5 9) (- fah 32)))

;;(Fahrenheit-Celsius 100)

;; (convert-gui Fahrenheit-Celsius)

;; (convert-repl Fahrenheit-Celsius)

;; Celsius-Fahrenheit : number -> number
;;  to convert Celsius temperature to Fahrenheit
;; example : (Celsius-Fahrenheit 37) should produce 100
(define (Celsius-Fahrenheit cel)
  (+
   (* (/ 9 5) cel) 32))

;; (Celsius-Fahrenheit 0)

;; I : number -> number
;; to convert Fahrenheit temperature to Celsius and back
;; exmaple :
(define (I f)
  (Celsius-Fahrenheit (Fahrenheit-Celsius f)))

(I 32)

;; suggests : function composition is transitive or the inverse of function f