aland/aoc-2025
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fmt

Browse source
This commit is contained in:
Alan Daniels 2025-12-06 16:56:05 +11:00
parent 46f10c043e
commit 2e19753b65
1 changed files with 4 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

19
02a.lisp
View file

@ -4,18 +4,14 @@
(defun get-range (range)
(let ((range (str:split "-" range)))
(loop for i from (parse-integer (car range)) to (parse-integer (car (cdr range))) collect i)
)
)
(loop for i from (parse-integer (car range)) to (parse-integer (car (cdr range))) collect i)))
(get-range "11-22")
(defun get-ranges (instr)
(loop for range in
(str:split "," (string-trim '(#\Newline) instr))
collect
(get-range range)
)
)
(get-range range)))
(get-ranges "1-3,4-5")
(defun validate-product-id (product-id)
@ -25,10 +21,7 @@
;(print product-id)
(cond
((not (evenp product-id-length)) t)
(t (not (string= (subseq product-id 0 split-at) (subseq product-id split-at))))
)
)
)
(t (not (string= (subseq product-id 0 split-at) (subseq product-id split-at)))))))
(validate-product-id 1212)
(validate-product-id 123)
(validate-product-id 1234)
@ -37,11 +30,7 @@
(reduce #'+
(remove-if #'validate-product-id
(reduce #'append
(get-ranges text)
)
)
)
)
(get-ranges text)))))
(sum-all-invalid-ids (uiop:read-file-string "02example.txt"))
(sum-all-invalid-ids (uiop:read-file-string "02data.txt"))