檢查列表中的每一個列表是否爲空Common Lisp中

Question

我知道我可以檢查是否列出的清單中只包含這樣

CL-USER> (null (find-if (lambda (item) (not (null item))) my-list)) 

其中my-list空列表是列表的列表。

例如：

CL-USER> (null (find-if (lambda (item) (not (null item))) '(nil (bob) nil))) 
NIL 
CL-USER> (null (find-if (lambda (item) (not (null item))) '(()()()))) 
T 

但是是不是有在Lisp中這樣做的更短，更簡單的方法？如果是這樣，怎麼樣？

Answer 1

高階函數every接受謂詞函數和列表，並返回true，如果謂詞對列表中的每個元素返回true。

所以，你可以這樣做：

(every #'null my-list) 

Answer 2

(find-if #'identity list) 

(not (find-if-not #'null list)) 

的功能列表和序列的完整列表，請查閱Common Lisp的HyperSpec。