Advent of Code 2017 - day 2

advent2017-day2.re

// part 1
read_file("Downloads/input.txt")
|> List.map(Str.split(Str.regexp("[ \t]+")))
|> List.map(List.map(int_of_string))
|> List.map(
     (l) =>
       List.fold_left(
         ((mn, mx), cur) => (min(mn, cur), max(mx, cur)),
         (List.hd(l), List.hd(l)),
         l
       )
   )
|> List.fold_left((acc, (mn, mx)) => acc + (mx - mn), 0);

// part 2
read_file("Downloads/input.txt")
|> List.map(Str.split(Str.regexp("[ \t]+")))
|> List.map(List.map(int_of_string))
|> List.map(
     (l) =>
       List.map(
         (a) => (
           a,
           try (List.find((b) => a != b && a mod b == 0, l)) {
           | Not_found => (-1)
           }
         ),
         l
       )
       |> List.fold_left((acc, (a, b)) => b == (-1) ? acc : a / b, 0)
   )
|> List.fold_left((acc, x) => acc + x, 0);