| … | |
… | |
| 41 | (define complex? number?) |
41 | (define complex? number?) |
| 42 | (define rational? real?) |
42 | (define rational? real?) |
| 43 | (define (abs n) (if (>= n 0) n (- n))) |
43 | (define (abs n) (if (>= n 0) n (- n))) |
| 44 | (define (exact->inexact n) (* n 1.0)) |
44 | (define (exact->inexact n) (* n 1.0)) |
| 45 | (define (<> n1 n2) (not (= n1 n2))) |
45 | (define (<> n1 n2) (not (= n1 n2))) |
|
|
46 | (define (square n) (* n n)) |
| 46 | ;; missing: numerator/denominator |
47 | ;; missing: numerator/denominator/rationalize |
| 47 | |
48 | |
| 48 | ; min and max must return inexact if any arg is inexact |
49 | ; min and max must return inexact if any arg is inexact |
| 49 | (define (max . lst) |
50 | (define (max . lst) |
| 50 | (foldr (lambda (a b) |
51 | (foldr (lambda (a b) |
| 51 | (if (> a b) |
52 | (if (> a b) |
