スキーム内のリスト内の空リストを削除する

Question

私はリストで満たされたリストを持っていますが、そのうちのいくつかはnullです。私の機能は、メインリストを通り、空のリストがあるかどうかをチェックしています。空の場合、それらは削除されます（または削除する必要があります）。私は車を取得し続ける：それはペアを期待しているが、 '（）を得ることを私に伝える契約違反エラー。このエラーが発生しないように変更する方法がわかりません。

 (define (take-out-nulls alist) 
     (cond ((null? (car alist)) (take-out-nulls (cdr alist))) 
     (#t (cons (car alist)(take-out-nulls (cdr alist)))))) 

Answer 1

あなたは終了テストなしで再帰を持っている、それはあなたの関数もそれの終わりにalistのcarをお願いし続けています。

単に関数に、このようなテストを追加します。

(define (take-out-nulls alist) 
    (cond ((null? alist) '()) 
     ((null? (car alist)) (take-out-nulls (cdr alist))) 
     (#t (cons (car alist) (take-out-nulls (cdr alist)))))) 

(take-out-nulls '(a()() b c())) ; => (a b c) 

Answer 2

また

(define (take-out-nulls alist) 
    (filter (λ (x) (not (empty? x))) alist)) 

(take-out-nulls '(a()() b c())) ;=> (a b c)