aoc3-1

src/aoc5.lisp

@@ -0,0 +1,75 @@
+;; #!/bin/sbcl --script
+(with-open-file (file "aoc4input.txt")
+  (let((result 0) (playerNumbersLen 0) (repetitions '())
+	   (lineLen 0) (manipulatedLine "") (winnerLine "") (playerLine "") (currentNumber "") (playerNumbers '()))
+	(loop for line = (read-line file nil)
+		  while line do
+			(setf lineLen (length line))
+			(setf manipulatedLine (subseq line (+ 2 (position #\: line :test #'equalp)) lineLen ))
+			(setf winnerLine (subseq manipulatedLine 0 (- (position #\| manipulatedLine :test #'equalp) 1)) )
+			(setf playerLine (subseq manipulatedLine (+ 2 (position #\| manipulatedLine :test #'equalp)) (length manipulatedLine) ))
+			(print winnerLine)
+			;;(print manipulatedLine)
+			(print playerLine)
+			(loop for c across playerLine
+				  with currentIdx = 0
+				  do
+					 (if(not(char= c #\Space))
+						(progn
+						  (setf currentNumber (format nil "~a~c" currentNumber c))
+						  (if(equal (+ currentIdx 1) (length playerLine))
+							 (progn
+						       (push (parse-integer(format nil "~%~a" currentNumber)) playerNumbers )
+						       (setf currentNumber ""))))
+						(progn
+						  ;;(format T "~%~d|~d" (+ currentIdx 1) (length playerLine))
+						  (if(not(string= currentNumber "")) 
+							 (progn
+							   (push (parse-integer(format nil "~%~a" currentNumber)) playerNumbers )
+							   (setf currentNumber "")))))
+					 (incf currentIdx))
+			(format T "~%~a ~a" "playerNumbersLen:" playerNumbersLen)
+		    (if(equal 0 playerNumbersLen)
+			   (progn
+				 (setf playerNumbersLen (list-length playerNumbers))
+				 (loop with idx = 0
+					   while (< idx playerNumbersLen)
+					   do
+						  (push 1 repetitions)
+						  (incf idx))
+				 (print repetitions)))
+		    (let((numOfInstances 0) (nextToClone 0))
+			  (setf numOfInstances (first repetitions))
+			  (setf result (+ result numOfInstances))
+			  ;;(format T "~%~a ~a" "Number of cards won:" result)
+			  (pop repetitions)
+			  (setf repetitions (append repetitions '(1)))
+			  (print repetitions)
+		      (loop for c across winnerLine
+		    		with currentIdx = 0
+		    		do
+		    		   (if(not(char= c #\Space))
+		    			  (progn
+		    				(setf currentNumber (format nil "~a~c" currentNumber c))
+		    				(if(equal (+ currentIdx 1) (length winnerLine))
+		    				   (progn
+								 (dolist (item playerNumbers)
+								   (if (equal (parse-integer currentNumber) item)
+									   (progn
+										 (setf (nth nextToClone repetitions) (+ (nth nextToClone repetitions) numOfInstances))
+										 (incf nextToClone)
+										 (print nextToClone))))
+		    				     (setf currentNumber ""))))
+		    			  (progn
+		    				(if(not(string= currentNumber "")) 
+		    				   (progn
+								 (dolist (item playerNumbers)
+								   (if (equal (parse-integer currentNumber) item)
+									   (progn
+										 (setf (nth nextToClone repetitions) (+ (nth nextToClone repetitions) numOfInstances))
+										 (incf nextToClone)
+										 (print nextToClone))))
+		    				     (setf currentNumber "")))))
+		    		   (incf currentIdx)))
+		    (setf playerNumbers '())
+		    (format T "~%~a ~a" "Number of cards won:" result))))