renaming stuff

master
Dustin Swan 3 years ago
parent 1dfbb13f25
commit cd90cf840b

@ -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

@ -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],

@ -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

Loading…
Cancel
Save