摘要：(define (same-parity x . z) (define (q? y) (= (remainder y 2) 1)) (define (o? y) (= (remainder y 2) 0)) (define (jg z f) (define m '()) (define (je a f m) (if (f (car a)) ... 阅读全文

摘要：(define (append a b ) (if (null? a )b (cons (car a) (append (cdr a) b)))) (define (reverse l) (append (reverse (cdr l)) (list (car l)) )) 阅读全文