Added all and remove-nth

Does what they say, all is the logical inverse to some.

1 files changed, 14 insertions, 0 deletions

diff --git a/2022/lib.lisp b/2022/lib.lisp
index 7499e72..2441481 100644
--- a/2022/lib.lisp
+++ b/2022/lib.lisp
@@ -26,3 +26,17 @@
     (loop for line = (read-line s nil)
           while line
           collect line)))
+
+(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)
+      (cons (car lst)
+            (remove-nth
+             (- n 1)
+             (cdr lst)))))