renaming stuff
This commit is contained in:
parent
1dfbb13f25
commit
cd90cf840b
4 changed files with 3 additions and 3 deletions
|
|
@ -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…
Add table
Add a link
Reference in a new issue