From ccecad103bfb6a7ac843d773835452eb85621949 Mon Sep 17 00:00:00 2001
From: Jack Kinsey <kinsey_john@bah.com>
Date: Mon, 2 Dec 2019 10:54:20 -0500
Subject: [PATCH] Fixed day2/pt1 bug

---
 day02/intcode.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/day02/intcode.clj b/day02/intcode.clj
index f6e5666..b21ffd2 100644
--- a/day02/intcode.clj
+++ b/day02/intcode.clj
@@ -14,9 +14,9 @@
         snd-val (program snd)]
     (assoc program thd (opcode-fn fst-val snd-val))))
 
-(defn intcode [program counter]
+(defn intcode [program]
   (loop [program program
-         counter counter]
+         counter 0]
     (let [opcode (program counter)]
       (if (= opcode 99)
         program
-- 
2.26.2