list - Common Lisp：列表中的所有或任何元素都为真

Question

在 Python 中有函数all，any如果列表的所有或部分元素分别为真，则它们返回真。Common Lisp 中是否有等价的功能？如果不是，那么写它们的最简洁和惯用的方式是什么？

目前我有这个：

(defun all (xs)
  (reduce (lambda (x y) (and x y)) xs :initial-value t))

(defun any (xs)
  (reduce (lambda (x y) (or x y)) xs :initial-value nil))

Answer 1

在 Common Lisp 中，使用every（相当于all）和some（相当于any）。

Answer 2

您可以将 LOOP 宏与ALWAYS和THEREIS子句一起使用，如下所示：

CL-USER 1 > (loop for item in '(nil nil nil) always item)
NIL

CL-USER 2 > (loop for item in '(nil nil t) always item)
NIL

CL-USER 3 > (loop for item in '(t t t) always item)
T

CL-USER 4 > (loop for item in '(nil nil nil) thereis item)
NIL

CL-USER 5 > (loop for item in '(nil nil t) thereis item)
T

CL-USER 6 > (loop for item in '(t t t) thereis item)
T