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

Better comment on puzzle-6.lisp

Browse Source
This commit is contained in:
Aryadev Chavali
2023-10-17 14:35:41 +01:00
parent 4352928861
commit 43b1575154
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
2022/puzzle-6.lisp
View File

@@ -17,7 +17,11 @@
nil)) nil))
(let* ((char-list (string-to-clist input)) (let* ((char-list (string-to-clist input))
(unique-check (mapcar (lambda (x y z w) (is-unique (list x y z w))) char-list (cdr char-list) (cdr (cdr char-list)) (cdr (cdr (cdr char-list)))))) ;; List of is-unique on 4 character subsequences of input
(unique-check (mapcar (lambda (x y z w) (is-unique (list x y z w)))
char-list (cdr char-list)
(cdr (cdr char-list))
(cdr (cdr (cdr char-list))))))
(calculate-position (position t unique-check)))) (calculate-position (position t unique-check))))
(format t "First round: ~a~%" (first-round input)) (format t "First round: ~a~%" (first-round input))