oreodave/advent-of-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use every instead of all

Browse Source
This commit is contained in:
Aryadev Chavali
2024-10-29 20:00:39 +00:00
parent b2c570524c
commit cd94c350e6
2 changed files with 3 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
2022/lib.lisp
View File

@@ -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)

6
2022/puzzle-8.lisp
View File

@@ -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