| … | |
… | |
| 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 | ;; missing: numerator/denominator |
| 46 | |
47 | |
| 47 | ; min and max must return inexact if any arg is inexact |
48 | ; min and max must return inexact if any arg is inexact |
| 48 | (define (max . lst) |
49 | (define (max . lst) |
| 49 | (foldr (lambda (a b) |
50 | (foldr (lambda (a b) |
| 50 | (if (> a b) |
51 | (if (> a b) |
