如何找到Scheme列表中的列表列表？

Question

我正在进行作业，我需要在列表中找到一个列表。例如，如果我们有

(has-list? '(1 2 (3 4) 5))

它将返回true，因为(3 4)是更大列表中的列表。

Answer 1

如果(list? l)是列表，则#t函数将返回l，如果不是<{p}，则#f将返回{/ 1}}

(define (has-list l)
  (if (null? l)
      _____
      (or (________) (_________))))

填补空白！

Answer 2

好吧，如果手头的Scheme实现提供了像any这样的库函数，它需要谓词和列表作为参数来测试满足谓词的列表中元素的存在，你可以简单地写{{ 1}}，否则，请填写为您留下的空白。