exam2.2.2

292阅读 0评论2011-12-05 maunix
分类:LINUX

  1. ;; mht created on Nov 8, 2011

  2. ;; assume the exchange rate is : 0.633
  3. (define er 0.633)

  4. ;; dollar->euro : number -> number
  5. ;; to produce the euro equivalent to the given dollor
  6. (define (dollar->euro d)
  7.   (* er d))

  8. ;; tests
  9. (= (dollar->euro 100) 63.3)
上一篇:exam2.1.2
下一篇:exam2.2.3