blob: 45d1921c1bd1668e6c4eccfc38dfeca2bf5764f8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(defvar input (uiop:read-file-string "puzzle-1-input.txt"))
(defvar *sep (format nil "~%~%"))
(defun get-lists (input)
(let ((pos (search *sep input)))
(with-input-from-string (s (subseq input 0 pos))
(let ((converted
(loop
for line = (read-line s nil nil)
while line
collect (parse-integer line))))
(if (null pos)
(list converted)
(cons converted
(get-lists (subseq input (+ pos 2)))))))))
(defvar sums (sort (mapcar (lambda (lst) (reduce #'+ lst)) (get-lists input)) #'>))
;; First challenge
(format t "Top snacks: ~a" (car sums))
;; Second challenge
(let ((first (car sums))
(second (car (cdr sums)))
(third (car (cdr (cdr sums)))))
(format t "~a,~a,~a:>~a" first second third (+ first second third)))
|
