入れ子リストから要素を削除する方法lisp

Question

入れ子リストについての難しい宿題を解決するのに手伝ってください。 基本的には、述語のevenpが真であるときは、リスト全体の構造を維持しながら、リスト（または入れ子になったリスト）から要素を削除する必要があります。

(Nopred 'evenp '(1 S d ((4)) (7) ((((8)))) u)) 

これは、これは私が、私はこのコードで解決しようとしたが、それは動作しません

(Defun nopred (f list) 
    (Cond ((null list)) 
     ((Symbolp (car list)) (cons (car list) (nopred f (cdr list))) 
     ((Listp (car list)) (cons (nopred f (car list)) (nopred f (cdr list)))) 
     ((Funcall f (car list)) (nopred f (cdr list))) 
     (T (cons (car list) (nopred f (cdr list)))))) 

を書いた関数であり、それは要素を削除しません

(1 S d (()) (7) (((()))) u) 

を返す必要がありますevenpがtrueの場合、値は

((((5 .T) .).).) 

Answer 1

(null list)ケースにNILを返す必要があります。一致するCOND句に戻り値がない場合は、条件の値を返し、(null list)はTを返します。

また、投稿コードにいくつかのタイプミスがありました：(cdr l)は(cdr list)である必要があり、その行の末尾には)がありませんでした。

(1 S d (nil) (7) (((nil))) u)