Add solution for day 5

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*))

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