(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)
.