scheme - スキーム内のリストまたはサブリスト内の要素を検索

Question

項目とリストを取り、項目がリストまたはサブリストで見つかったかどうかのブール値を返す関数。

(define is-present?
  (lambda (item lis)
    (if (null? lis) #f
       (if (eqv? item (car lis))
       #t
       (is-present? (item (cdr lis)))))))

単純なリストで要素を検索できますが、リストにサブリストがあると失敗します。

Answer 1

ええ！それは私の宿題の質問です。

そして、これが私の答えです：

(define present 
(lambda (x list)
(cond ((or (not (list? list)) (null? list)) #f)
      ((or (eqv? x (car list)) (present x (car list))) #t)
      (else (present x (cdr list))))))