Browse Source

renaming stuff

master
Dustin Swan 2 years ago
parent
commit
cd90cf840b
  1. 0
      day1.txt
  2. 2
      day1_1.ml
  3. 2
      day1_2.hs
  4. 2
      day1_2.ml

0
day1_1.txt → day1.txt

2
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

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

2
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

Loading…
Cancel
Save