diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-10-29 20:00:39 +0000 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-10-29 20:00:39 +0000 |
commit | cd94c350e69a931f4dfc84ecfe34a333a91b3552 (patch) | |
tree | 478f21514e7f37082d02948950779cefc55e3c2c /2022 | |
parent | b2c570524c7371e40e21ae107f4b62790607717a (diff) | |
download | advent-of-code-cd94c350e69a931f4dfc84ecfe34a333a91b3552.tar.gz advent-of-code-cd94c350e69a931f4dfc84ecfe34a333a91b3552.tar.bz2 advent-of-code-cd94c350e69a931f4dfc84ecfe34a333a91b3552.zip |
Use every instead of all
Diffstat (limited to '2022')
-rw-r--r-- | 2022/lib.lisp | 6 | ||||
-rw-r--r-- | 2022/puzzle-8.lisp | 6 |
2 files changed, 3 insertions, 9 deletions
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) diff --git a/2022/puzzle-8.lisp b/2022/puzzle-8.lisp index 85fd1ae..54aca27 100644 --- a/2022/puzzle-8.lisp +++ b/2022/puzzle-8.lisp @@ -23,7 +23,7 @@ (defun is-visible? (x y) (if (or (= x 0) (= x (- n-trees 1)) - (= y 0) (= y (- n-trees 1))) + (= y 0) (= y (- n-trees 1))) t (let* ((tree (get-tree x y)) (lt-tree? (lambda (a) (< a tree))) @@ -34,8 +34,8 @@ (col-top (subseq col 0 y)) (col-bottom (subseq col (+ y 1)))) (some #'id - (mapcar (lambda (x) (all lt-tree? x)) - (list row-left row-right col-top col-bottom)))))) + (mapcar (lambda (x) (every lt-tree? x)) + (list row-left row-right col-top col-bottom)))))) (defun how-many-visible () (loop |