renaming stuff

day1_1.ml

@@ -21,7 +21,7 @@ let find_pair_and_prod items total =
       else check (idx+1)
   in check 0
 
-let file = "day1_1.txt"
+let file = "day1.txt"
 let channel = open_in(file)
 let lines = get_lines channel
 let ints = List.map int_of_string lines

day1_2.hs

@@ -1,5 +1,5 @@
 main = do
-  contents <- readFile "day1_1.txt"
+  contents <- readFile "day1.txt"
   let xs = map read $ lines contents
   let [(i, j, k)] = [(i, j, k) | i <- [0..(length xs)-1],
                                  j <- [0..i],

day1_2.ml

@@ -22,7 +22,7 @@ let find_pair_and_prod items total =
       else check (idx + 1)
   in check 0
 
-let file = "day1_1.txt"
+let file = "day1.txt"
 let channel = open_in(file)
 let lines = get_lines channel
 let ints = List.map int_of_string lines