如何在球拍/方案中將偶數列表更改為奇數列表？

Question

我有以下代碼甚至列表：

(define (even xs)
    (cond
        ((null? xs) '())   
        ((eq? (cdr xs) '()) '()) 
        (else (cons (cadr xs) (even (cddr xs)))))) 
;(even-list   '(a b c d)) produces (b d)

如何對產生（ac）if（奇數列表'（abcd））的奇數列表執行相同的操作。

Answer 1

我相信你會被要求完全自己寫出來。 為此，請注意（在您提供的代碼中）您正在檢查cdr是否為空列表，因為您將cadr作為第一個元素。

對於賠率，你不需要cadr 。 第一個元素已處於奇數位置。

但是你也可以使用一個簡單的技巧。

問題：（ (cons 1 xs)對xs的長度有什么影響？