Exercise 3.3.6: (back)

;; Fahrenheit->Celsius : number -> number
(define (Fahrenheit->Celsius t)
  (* (- t 32) (/ 5 9)))


;; Celsius->Fahrenheit : number -> number
(define (Celsius->Fahrenheit t)
  (+ (* (/ 9 5) t) 32))

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

Solution:
(Fahrenheit-Celsius 32)
(* (- 32 32) (/ 5 9))
(* (0) (1.8))
(* 0 1.8)
0

(Celsius->Fahrenheit 0)
(+ (* (/ 9 5) 0) 32)
(+ (* (1.8) 0) 32)
(+ (* 1.8 0) 32)
(+ (0) 32)
(+ 0 32)
32