(define (evenList xs)
(cond
((null? xs) '())
((eq? (cdr xs) '()) '())
(else (cons (cadr xs) (evenList (cddr xs))))))
我正在使用此代码,但它不会按照我想要的方式创建列表。(evenList (list 1 2 3 4))在 REPL 中计算为(cons 2 (cons 4 '())),但我希望它像(list 2 4).