diff --git a/day05/day05.lisp b/day05/day05.lisp new file mode 100644 index 0000000..d815407 --- /dev/null +++ b/day05/day05.lisp @@ -0,0 +1,34 @@ +(ql:quickload :cl-ppcre) + +(setf *stack* '((W P G Z V S B) (F Z C B V J) + (C D Z N H M L V) (B J F P Z M D L) + (H Q B J G C F V) (B L S T Q F G) (V Z C G L) + (G L N) (C H F J))) + +(defun replace-stack (list pos) + (setf (nth pos *stack*) list)) + +(defun move-one (src dest) + (progn + (replace-stack (cons (car (nth src *stack*)) (nth dest *stack*)) dest) + (replace-stack (cdr (nth src *stack*)) src))) + +(defun move-two (count src dest) + (progn + (replace-stack (append (subseq (nth src *stack*) 0 count) (nth dest *stack*)) dest) + (replace-stack (subseq (nth src *stack*) count (length (nth src *stack*))) src))) + +(defun part-one (input) + (progn + (loop :for line :in (uiop:read-file-lines input) :do + (ppcre:register-groups-bind (count src dest) ("(\\d+).*(\\d+).*(\\d+)" line) + (dotimes (i (parse-integer count)) + (move-one (- (parse-integer src) 1) (- (parse-integer dest) 1)))))) + (mapcar #'first *stack*)) + +(defun part-two (input) + (progn + (loop :for line :in (uiop:read-file-lines input) :do + (ppcre:register-groups-bind (count src dest) ("(\\d+).*(\\d+).*(\\d+)" line) + (move-two (parse-integer count) (- (parse-integer src) 1) (- (parse-integer dest) 1))))) + (mapcar #'first *stack*)) diff --git a/day05/input b/day05/input new file mode 100644 index 0000000..799ef3d --- /dev/null +++ b/day05/input @@ -0,0 +1,501 @@ +move 5 from 4 to 7 +move 8 from 5 to 9 +move 6 from 2 to 8 +move 7 from 7 to 9 +move 1 from 7 to 4 +move 2 from 7 to 4 +move 9 from 8 to 4 +move 16 from 9 to 7 +move 1 from 3 to 8 +move 15 from 4 to 5 +move 3 from 9 to 5 +move 2 from 3 to 5 +move 1 from 8 to 7 +move 3 from 1 to 7 +move 5 from 3 to 5 +move 13 from 7 to 2 +move 5 from 7 to 1 +move 7 from 2 to 6 +move 2 from 7 to 8 +move 3 from 6 to 5 +move 2 from 8 to 2 +move 2 from 6 to 1 +move 11 from 1 to 7 +move 2 from 2 to 9 +move 8 from 6 to 5 +move 2 from 9 to 6 +move 3 from 6 to 4 +move 1 from 4 to 7 +move 22 from 5 to 6 +move 13 from 6 to 9 +move 5 from 2 to 7 +move 6 from 5 to 8 +move 13 from 7 to 2 +move 2 from 4 to 6 +move 5 from 6 to 3 +move 2 from 7 to 5 +move 3 from 3 to 6 +move 2 from 6 to 2 +move 8 from 2 to 4 +move 2 from 4 to 7 +move 2 from 2 to 9 +move 5 from 4 to 5 +move 2 from 3 to 2 +move 1 from 5 to 4 +move 6 from 5 to 9 +move 1 from 7 to 3 +move 1 from 5 to 9 +move 5 from 5 to 1 +move 1 from 6 to 8 +move 1 from 5 to 8 +move 4 from 6 to 9 +move 8 from 8 to 9 +move 1 from 3 to 6 +move 4 from 1 to 7 +move 3 from 6 to 4 +move 7 from 2 to 6 +move 27 from 9 to 8 +move 3 from 4 to 7 +move 6 from 8 to 1 +move 1 from 4 to 6 +move 1 from 2 to 7 +move 7 from 6 to 3 +move 1 from 4 to 3 +move 4 from 1 to 6 +move 1 from 9 to 2 +move 1 from 2 to 4 +move 1 from 4 to 5 +move 3 from 9 to 4 +move 5 from 7 to 8 +move 2 from 5 to 6 +move 4 from 6 to 9 +move 10 from 8 to 3 +move 2 from 4 to 7 +move 3 from 1 to 7 +move 2 from 9 to 6 +move 6 from 3 to 1 +move 7 from 3 to 4 +move 2 from 1 to 9 +move 4 from 1 to 9 +move 1 from 3 to 6 +move 1 from 3 to 8 +move 2 from 9 to 5 +move 2 from 5 to 3 +move 3 from 3 to 1 +move 1 from 4 to 6 +move 5 from 7 to 6 +move 2 from 3 to 4 +move 2 from 8 to 1 +move 9 from 4 to 7 +move 4 from 9 to 3 +move 2 from 8 to 3 +move 1 from 1 to 4 +move 1 from 6 to 2 +move 1 from 2 to 9 +move 6 from 3 to 5 +move 2 from 1 to 3 +move 1 from 3 to 2 +move 1 from 2 to 9 +move 8 from 6 to 8 +move 2 from 6 to 3 +move 1 from 1 to 2 +move 7 from 7 to 9 +move 13 from 8 to 6 +move 1 from 2 to 8 +move 6 from 9 to 3 +move 1 from 1 to 6 +move 2 from 8 to 5 +move 5 from 3 to 4 +move 2 from 8 to 1 +move 8 from 5 to 2 +move 4 from 3 to 2 +move 5 from 8 to 4 +move 2 from 9 to 4 +move 4 from 4 to 7 +move 10 from 2 to 6 +move 1 from 2 to 9 +move 24 from 6 to 1 +move 17 from 1 to 8 +move 1 from 9 to 2 +move 2 from 4 to 9 +move 10 from 7 to 4 +move 1 from 2 to 5 +move 5 from 9 to 1 +move 1 from 7 to 6 +move 12 from 8 to 6 +move 1 from 7 to 5 +move 2 from 5 to 6 +move 16 from 6 to 8 +move 12 from 1 to 6 +move 2 from 1 to 7 +move 9 from 6 to 2 +move 2 from 4 to 1 +move 1 from 1 to 5 +move 7 from 4 to 6 +move 13 from 8 to 2 +move 5 from 8 to 2 +move 2 from 7 to 3 +move 2 from 4 to 9 +move 1 from 5 to 4 +move 3 from 9 to 8 +move 2 from 4 to 2 +move 2 from 3 to 8 +move 1 from 1 to 5 +move 1 from 4 to 8 +move 6 from 2 to 7 +move 1 from 5 to 8 +move 1 from 6 to 2 +move 7 from 6 to 8 +move 1 from 6 to 2 +move 24 from 2 to 1 +move 10 from 8 to 3 +move 4 from 8 to 2 +move 4 from 7 to 1 +move 5 from 2 to 9 +move 1 from 6 to 2 +move 10 from 3 to 1 +move 2 from 7 to 3 +move 2 from 3 to 7 +move 2 from 7 to 9 +move 35 from 1 to 5 +move 28 from 5 to 6 +move 2 from 2 to 7 +move 19 from 6 to 4 +move 3 from 1 to 2 +move 3 from 2 to 5 +move 23 from 4 to 7 +move 2 from 6 to 8 +move 4 from 7 to 6 +move 3 from 5 to 6 +move 13 from 7 to 4 +move 2 from 5 to 6 +move 2 from 9 to 4 +move 5 from 6 to 3 +move 6 from 4 to 5 +move 1 from 4 to 8 +move 4 from 4 to 6 +move 5 from 9 to 7 +move 2 from 8 to 7 +move 5 from 3 to 2 +move 4 from 5 to 2 +move 5 from 2 to 9 +move 4 from 8 to 4 +move 1 from 9 to 8 +move 2 from 2 to 6 +move 4 from 4 to 2 +move 3 from 2 to 3 +move 3 from 5 to 1 +move 2 from 3 to 2 +move 3 from 1 to 4 +move 1 from 9 to 4 +move 5 from 4 to 9 +move 2 from 4 to 3 +move 5 from 6 to 8 +move 1 from 9 to 7 +move 2 from 6 to 3 +move 1 from 4 to 5 +move 1 from 9 to 4 +move 6 from 8 to 6 +move 2 from 3 to 6 +move 2 from 9 to 4 +move 2 from 3 to 9 +move 1 from 3 to 1 +move 17 from 6 to 4 +move 1 from 1 to 8 +move 1 from 6 to 5 +move 1 from 9 to 2 +move 11 from 4 to 6 +move 9 from 4 to 5 +move 7 from 9 to 4 +move 2 from 5 to 2 +move 1 from 4 to 9 +move 5 from 2 to 1 +move 1 from 2 to 9 +move 4 from 4 to 9 +move 4 from 1 to 5 +move 1 from 1 to 7 +move 1 from 8 to 9 +move 8 from 7 to 8 +move 4 from 7 to 4 +move 9 from 5 to 2 +move 2 from 4 to 1 +move 11 from 6 to 8 +move 2 from 4 to 3 +move 2 from 4 to 8 +move 1 from 1 to 4 +move 3 from 2 to 8 +move 1 from 1 to 3 +move 3 from 3 to 9 +move 8 from 9 to 6 +move 1 from 4 to 8 +move 2 from 9 to 3 +move 5 from 6 to 9 +move 7 from 5 to 6 +move 2 from 3 to 4 +move 5 from 7 to 9 +move 2 from 4 to 5 +move 2 from 2 to 3 +move 10 from 9 to 5 +move 2 from 6 to 3 +move 6 from 2 to 7 +move 10 from 5 to 3 +move 6 from 7 to 1 +move 2 from 1 to 7 +move 4 from 3 to 9 +move 3 from 8 to 2 +move 2 from 7 to 5 +move 19 from 8 to 7 +move 4 from 5 to 9 +move 4 from 9 to 8 +move 1 from 2 to 5 +move 3 from 6 to 8 +move 1 from 5 to 9 +move 5 from 9 to 7 +move 6 from 3 to 8 +move 1 from 3 to 8 +move 2 from 3 to 2 +move 23 from 7 to 6 +move 10 from 8 to 4 +move 4 from 4 to 9 +move 4 from 2 to 6 +move 1 from 3 to 8 +move 4 from 8 to 4 +move 31 from 6 to 4 +move 9 from 4 to 5 +move 8 from 5 to 3 +move 1 from 6 to 7 +move 2 from 5 to 7 +move 4 from 9 to 2 +move 21 from 4 to 8 +move 4 from 2 to 9 +move 3 from 3 to 9 +move 2 from 7 to 9 +move 11 from 4 to 9 +move 1 from 8 to 5 +move 1 from 5 to 9 +move 9 from 9 to 3 +move 3 from 1 to 5 +move 2 from 5 to 8 +move 11 from 3 to 6 +move 4 from 6 to 3 +move 2 from 8 to 3 +move 10 from 9 to 6 +move 22 from 8 to 9 +move 1 from 1 to 8 +move 4 from 6 to 3 +move 2 from 7 to 6 +move 3 from 8 to 3 +move 14 from 3 to 2 +move 1 from 3 to 4 +move 1 from 2 to 4 +move 2 from 9 to 1 +move 1 from 5 to 7 +move 1 from 3 to 2 +move 14 from 6 to 5 +move 13 from 5 to 2 +move 1 from 5 to 6 +move 1 from 7 to 9 +move 8 from 9 to 4 +move 2 from 6 to 7 +move 23 from 2 to 4 +move 2 from 1 to 4 +move 2 from 2 to 5 +move 1 from 5 to 1 +move 1 from 7 to 2 +move 1 from 5 to 9 +move 16 from 9 to 5 +move 1 from 2 to 4 +move 13 from 5 to 3 +move 1 from 1 to 4 +move 1 from 7 to 1 +move 1 from 5 to 3 +move 2 from 5 to 7 +move 2 from 7 to 1 +move 9 from 3 to 2 +move 2 from 1 to 7 +move 1 from 1 to 9 +move 19 from 4 to 2 +move 1 from 9 to 7 +move 1 from 7 to 8 +move 23 from 2 to 8 +move 2 from 7 to 2 +move 12 from 4 to 5 +move 12 from 5 to 1 +move 5 from 2 to 9 +move 2 from 2 to 7 +move 5 from 8 to 1 +move 3 from 9 to 4 +move 1 from 2 to 8 +move 1 from 2 to 4 +move 4 from 8 to 1 +move 2 from 3 to 1 +move 2 from 7 to 5 +move 1 from 4 to 9 +move 8 from 4 to 7 +move 13 from 8 to 6 +move 1 from 3 to 1 +move 13 from 6 to 7 +move 13 from 7 to 6 +move 7 from 1 to 4 +move 5 from 7 to 3 +move 3 from 4 to 3 +move 13 from 6 to 1 +move 3 from 8 to 6 +move 8 from 3 to 8 +move 12 from 1 to 8 +move 1 from 3 to 5 +move 6 from 1 to 7 +move 3 from 6 to 8 +move 1 from 3 to 8 +move 1 from 9 to 2 +move 3 from 5 to 6 +move 1 from 7 to 3 +move 8 from 7 to 1 +move 2 from 6 to 2 +move 3 from 4 to 3 +move 2 from 9 to 2 +move 6 from 8 to 9 +move 5 from 2 to 5 +move 2 from 3 to 4 +move 5 from 5 to 4 +move 1 from 3 to 9 +move 8 from 4 to 5 +move 1 from 6 to 8 +move 2 from 1 to 4 +move 1 from 1 to 4 +move 3 from 1 to 5 +move 3 from 1 to 6 +move 7 from 1 to 9 +move 2 from 6 to 9 +move 1 from 3 to 5 +move 17 from 8 to 7 +move 17 from 7 to 6 +move 5 from 5 to 2 +move 5 from 2 to 1 +move 13 from 6 to 2 +move 1 from 1 to 4 +move 5 from 5 to 1 +move 1 from 1 to 5 +move 10 from 9 to 1 +move 13 from 1 to 8 +move 13 from 8 to 4 +move 5 from 6 to 7 +move 8 from 1 to 7 +move 1 from 1 to 3 +move 12 from 2 to 6 +move 1 from 3 to 8 +move 6 from 6 to 2 +move 2 from 5 to 1 +move 5 from 2 to 5 +move 2 from 5 to 9 +move 12 from 4 to 2 +move 1 from 6 to 2 +move 15 from 2 to 1 +move 1 from 8 to 6 +move 2 from 7 to 3 +move 2 from 4 to 2 +move 1 from 2 to 9 +move 1 from 2 to 6 +move 7 from 7 to 3 +move 1 from 4 to 1 +move 17 from 1 to 2 +move 3 from 6 to 4 +move 1 from 3 to 8 +move 3 from 9 to 6 +move 4 from 6 to 3 +move 13 from 2 to 9 +move 3 from 2 to 8 +move 2 from 5 to 1 +move 6 from 8 to 2 +move 1 from 6 to 2 +move 3 from 2 to 7 +move 3 from 1 to 6 +move 2 from 9 to 8 +move 6 from 9 to 8 +move 8 from 9 to 3 +move 7 from 7 to 4 +move 20 from 3 to 7 +move 4 from 6 to 8 +move 1 from 8 to 6 +move 2 from 6 to 4 +move 3 from 2 to 1 +move 2 from 9 to 6 +move 9 from 8 to 6 +move 3 from 1 to 9 +move 9 from 4 to 8 +move 1 from 5 to 6 +move 3 from 4 to 2 +move 1 from 5 to 3 +move 8 from 6 to 4 +move 4 from 9 to 3 +move 10 from 8 to 6 +move 5 from 2 to 3 +move 3 from 6 to 4 +move 10 from 3 to 1 +move 11 from 4 to 1 +move 1 from 8 to 2 +move 2 from 4 to 2 +move 1 from 4 to 9 +move 10 from 6 to 3 +move 21 from 1 to 5 +move 2 from 2 to 7 +move 1 from 9 to 6 +move 1 from 6 to 3 +move 1 from 6 to 7 +move 11 from 5 to 6 +move 1 from 2 to 8 +move 1 from 5 to 9 +move 11 from 6 to 3 +move 1 from 8 to 4 +move 1 from 4 to 1 +move 3 from 5 to 7 +move 1 from 1 to 5 +move 5 from 5 to 8 +move 23 from 7 to 9 +move 5 from 8 to 4 +move 1 from 5 to 2 +move 12 from 3 to 4 +move 6 from 3 to 6 +move 1 from 5 to 2 +move 8 from 9 to 2 +move 1 from 7 to 8 +move 2 from 7 to 9 +move 4 from 3 to 5 +move 1 from 5 to 9 +move 1 from 6 to 5 +move 4 from 6 to 5 +move 3 from 2 to 1 +move 3 from 1 to 3 +move 8 from 9 to 1 +move 4 from 2 to 9 +move 1 from 9 to 7 +move 14 from 4 to 8 +move 3 from 3 to 4 +move 1 from 5 to 8 +move 2 from 8 to 6 +move 2 from 6 to 7 +move 4 from 4 to 3 +move 12 from 9 to 1 +move 1 from 3 to 2 +move 6 from 8 to 2 +move 1 from 7 to 1 +move 5 from 2 to 3 +move 21 from 1 to 3 +move 5 from 5 to 4 +move 1 from 8 to 5 +move 2 from 2 to 7 +move 1 from 6 to 1 +move 2 from 9 to 2 +move 1 from 2 to 9 +move 1 from 1 to 5 +move 4 from 3 to 5 +move 7 from 8 to 1 +move 6 from 1 to 9 +move 1 from 2 to 5 +move 6 from 9 to 7 +move 8 from 3 to 4 +move 2 from 4 to 8 +move 1 from 1 to 6 +move 10 from 3 to 9 +move 12 from 4 to 2 +move 1 from 8 to 1 \ No newline at end of file