src/sicp/ex2_86.rkt

   1 #lang racket
   2
   3 ;; for scheme-numbers
   4 (put 'cos '(scheme-number)
   5      (lambda (x) (cos x)))
   6
   7 (put 'cos '(real)
   8      (lambda (x) (cos x)))
   9
  10 (put 'cos '(rational)
  11      (lambda (r) (exact->inexact r)))
  12
  13 ;; similarly define sin, atan, square