From cd94c350e69a931f4dfc84ecfe34a333a91b3552 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Tue, 29 Oct 2024 20:00:39 +0000 Subject: Use every instead of all --- 2022/lib.lisp | 6 ------ 1 file changed, 6 deletions(-) (limited to '2022/lib.lisp') diff --git a/2022/lib.lisp b/2022/lib.lisp index 1d81219..6c55508 100644 --- 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) -- cgit v1.2.3-13-gbd6f