From c0964cbb42710129a217e84bf7525f68f3fd670e Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 26 Jun 2023 08:35:43 +0100 Subject: (*->2022)~made it clear what advent of code I'm doing --- puzzle-1.lisp | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 puzzle-1.lisp (limited to 'puzzle-1.lisp') diff --git a/puzzle-1.lisp b/puzzle-1.lisp deleted file mode 100644 index 45d1921..0000000 --- a/puzzle-1.lisp +++ /dev/null @@ -1,26 +0,0 @@ -(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))) -- cgit v1.2.3-13-gbd6f