Use every instead of all

2024-10-29 20:00:39 +00:00
parent b2c570524c
commit cd94c350e6
2 changed files with 3 additions and 9 deletions
--- a/2022/lib.lisp
+++ b/2022/lib.lisp
@@ -29,12 +29,6 @@

 (defun id (x) x)

-(defun all (pred lst)
-  (if (not (cdr lst))
-      (funcall pred (car lst))
-      (and (funcall pred (car lst))
-         (all pred (cdr lst)))))
-
 (defun remove-nth (n lst)
  (if (or (null lst) (= n 0))
      (cdr lst)