]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex2_86.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / 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