0 
(define filter-in
  (lambda (predicate list)
    (let((f
        (lambda (l)
          (filter-in-sexpr predicate l))))
    (map f list))))

(define filter-in-aux
  (lambda (pred lst)
    (if (null? lst) '()
        (cons (filter-in-sexpr pred (car lst))
              (filter-in-aux pred (cdr lst))))))

(define filter-in-sexpr
  (lambda (pred sexpr)
    (if (equal? (pred sexpr) #t)
            sexpr
            '())))

(filter-in number? '(a 2 (1 3) b 7)) を呼び出すと、( () 2 () () 7) が生成されます。

生成されたリストから null 要素をスキップして (2 7) の最終結果を得るにはどうすればよいですか?

4

1 に答える 1

1

問題は、リストに filter-in-sxpr をマッピングしていることです。別のフィルター パスを実行して null を削除するか、次のように変更された filter-in-aux を使用できます。

(define filter-in-aux
  (lambda (pred lst)
    (if (null? lst) '()
        (let ((h (filter-in-sexpr pred (car lst)))
              (t (filter-in-aux pred (cdr lst))))
          (if (null? h) t
              (cons h t))))))
于 2011-02-22T23:24:44.943 に答える