From 0a29e1e0b65c8f6f60402dc79e196ffeee699e5f Mon Sep 17 00:00:00 2001
From: Jonathan Chan <jonathanhwchan@gmail.com>
Date: Sun, 17 Dec 2017 16:11:13 -0800
Subject: [PATCH] Fixed input imports due to 0 prefix for days 01 to 09.

---
 01.hs | 2 +-
 02.hs | 2 +-
 04.hs | 2 +-
 06.hs | 2 +-
 07.hs | 2 +-
 08.hs | 2 +-
 09.hs | 2 +-
 7 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/01.hs b/01.hs
index 7704566..a0a3cf2 100644
--- a/01.hs
+++ b/01.hs
@@ -8,6 +8,6 @@ halfwaySum ns =
 
 main :: IO ()
 main = do 
-    nums <- fmap (map (read . pure)) $ readFile "1.txt"
+    nums <- fmap (map (read . pure)) $ readFile "01.txt"
     print $ circularSum nums
     print $ halfwaySum nums
\ No newline at end of file
diff --git a/02.hs b/02.hs
index 611c9a1..c925897 100644
--- a/02.hs
+++ b/02.hs
@@ -10,6 +10,6 @@ divline ns =
 
 main :: IO ()
 main = do
-    grid <- fmap (map (map read . words) . lines) $ readFile "2.txt"
+    grid <- fmap (map (map read . words) . lines) $ readFile "02.txt"
     print $ sum . map (\line -> maximum line - minimum line) $ grid
     print $ sum . map divline $ grid
\ No newline at end of file
diff --git a/04.hs b/04.hs
index 7c40156..182bc0b 100644
--- a/04.hs
+++ b/04.hs
@@ -6,7 +6,7 @@ isPassphraseValid ws = sort ws == (toAscList . fromList) ws
 
 main :: IO ()
 main = do
-    passphrases <- fmap (map words . lines) $ readFile "4.txt"
+    passphrases <- fmap (map words . lines) $ readFile "04.txt"
     let valids      = sum $ map (fromEnum . isPassphraseValid) passphrases
     let stillValids = sum $ map (fromEnum . isPassphraseValid . (map sort)) passphrases
     print $ valids
diff --git a/06.hs b/06.hs
index ccab2e6..801ec03 100644
--- a/06.hs
+++ b/06.hs
@@ -33,5 +33,5 @@ cycles prevCount (prevBank, banks) =
 
 main :: IO ()
 main = do
-    bank <- fmap (fromList . map read . words) $ readFile "6.txt"
+    bank <- fmap (fromList . map read . words) $ readFile "06.txt"
     print $ cycles 0 (bank, empty)
diff --git a/07.hs b/07.hs
index 0b1b9b2..31674dd 100644
--- a/07.hs
+++ b/07.hs
@@ -66,7 +66,7 @@ findBalanced (Node _ forest) =
         
 main :: IO ()
 main = do
-    programsList <- fmap (map parseLine . lines) $ readFile "7.txt"
+    programsList <- fmap (map parseLine . lines) $ readFile "07.txt"
     let programsMap  = fromList  programsList
         bottomName   = getBottom programsMap programsList
         balanced     = findBalanced . cumulate $ mapToTree programsMap bottomName
diff --git a/08.hs b/08.hs
index d140908..8719106 100644
--- a/08.hs
+++ b/08.hs
@@ -38,7 +38,7 @@ executeInstruction m (I r v s f) =
 
 main :: IO ()
 main = do
-    input <- readFile "8.txt"
+    input <- readFile "08.txt"
     let maxima = map (maximum . elems) . tail . scanl executeInstruction empty . map parseLine . lines $ input
     print $ last maxima
     print $ maximum maxima
\ No newline at end of file
diff --git a/09.hs b/09.hs
index 310f8db..34e974d 100644
--- a/09.hs
+++ b/09.hs
@@ -12,4 +12,4 @@ scoreAndCount str =
 
 main :: IO ()
 main = do
-    readFile "9.txt" >>= print . scoreAndCount
\ No newline at end of file
+    readFile "09.txt" >>= print . scoreAndCount
\ No newline at end of file