Common Lisp:一个判断列表是否包含嵌套列表的谓词？

Question

如果列表有子列表,我需要一个返回true的谓词,否则返回false.

我写了一个实现它的函数(如下).我想知道这样的谓词是否已经存在？

(defun hasSublistp (lst)
    (cond ((null lst) nil)
          ((listp (first lst)) t)
          (t (hasSublistp (rest lst)))))

Answer 1

这应该做的伎俩:

? (some #'listp '(1 2 3 4 5))
NIL
? (some #'listp '(1 2 (3 4) 4 5))
T
? (some #'listp '(1 2 (3 4) (4 7) 5))
T

Answer 2

我认为没有完全符合此目的的功能,但是如何:

(some #'listp my-list)

您可以some在hyperspec中找到有关高阶函数的更多信息.