练习2.5,这个简单 (define (my_cons a b) (* (expt 2 a) (expt 3 b))) (define (my_car z) (cond ((= (remainder z 2) 1) 0) (else (+ 1 (my_car (quotient z 2)))))) (define (my_cdr z) (cond ((= (remainder z 3) 0) (+ 1 (my_cdr (quotient z 3)))) (else 0))) 练习2.6 (define one (lambda(f) (lambda(x) (f x)))) (define two (lambda(f) (lambda(x) (f (f x))))) (define (my_add a b) (lambda (f) (lambda (x) ((b f) ((a f) x)))))