Finished round 2 of puzzle-8

This commit is contained in:
2023-10-17 21:53:46 +01:00
parent 3aa1e31d5b
commit 67fdc3157f
2 changed files with 44 additions and 7 deletions

View File

@@ -27,6 +27,8 @@
while line
collect line)))
(defun id (x) x)
(defun all (pred lst)
(if (not (cdr lst))
(funcall pred (car lst))