… | |
… | |
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) |