functional-programming - 如何在 Scheme/LISP 中编写除一体功能外的所有功能？

Question

你们能想出一个最短、最惯用的 all-but-one 函数解决方案吗？

;; all-but-one
;; checks if all but one element in a list holds a certain property
;; (all-but-one even? (list 1 2 4)) -> true
;; (all-but-one even? '(1)) -> true
;; (all-but-one even? '(2 4)) -> false

编辑:除了一个之外都是。

Answer 1

如果第一个元素具有指定的属性，则对列表的其余部分调用 all-but-one。

如果第一个元素没有指定的属性，则对列表的其余部分调用 all。