emacs - Common Lisp 有一些功能。我怎样才能在 elisp 中写一些或任何东西？

Question

any 函数将对序列的元素评估函数(或谓词)，如果谓词对序列的任何元素返回 true，则返回 true。因此

(any `stringp `(42 t "yes" nil))

.. 将返回非零，并且

(any `stringp `(42 t nil 89))

...将返回零。

我认为 CL 模块中有一个 some 函数，但我不想使用它。

使用 mapc 编写简单的实现很容易:

(defun my-any (predicate sequence)
  "Return true if PREDICATE is true of any element of SEQUENCE.
If so, return the first non-nil value returned by PREDICATE.
"
  (let (result)
    (mapc '(lambda (elt)
             (or result
                 (setq result (funcall predicate elt))))
          sequence)
    result))

但是有人可以对此提供优化或改进吗？是否有更快、更清洁或更惯用的 elisp 方法来执行此操作？特别是在第一个触发时停止映射序列的最佳方法是什么？我可以“展开”mapc，但这是最好的方法吗？

我想我可以使用 catch，但实际上成本可能比节省的要多。

提示？

Answer 1

(defun any (pred list)
  (while (and list (not (funcall pred (car list))))
    (pop list))
  (car list))