- ;; mht created on Nov 8, 2011
-
-
;; assume the exchange rate is : 0.633
-
(define er 0.633)
-
-
;; dollar->euro : number -> number
-
;; to produce the euro equivalent to the given dollor
-
(define (dollar->euro d)
-
(* er d))
-
-
;; tests
- (= (dollar->euro 100) 63.3)