1.exs

System.argv()
|> List.first()
|> File.stream!()
|> Enum.count(fn pair ->
  [[section_1_start, section_1_end], [section_2_start, section_2_end]] =
    pair
    |> String.trim()
    |> String.split(",")
    |> Enum.map(fn assignment -> assignment |> String.split("-") |> Enum.map(&String.to_integer/1) end)

  (section_1_start >= section_2_start && section_1_end <= section_2_end) ||
    (section_2_start >= section_1_start && section_2_end <= section_1_end)
end)
|> IO.inspect

2.exs

System.argv()
|> List.first()
|> File.stream!()
|> Enum.count(fn pair ->
    pair
    |> String.trim()
    |> String.split(",")
    |> Enum.map(fn assignment ->
      assignment
      |> String.split("-")
      |> Enum.map(& String.to_integer/1)
      |> then(fn bounds -> apply(Range, :new, bounds) end)
    end)
    |> then(fn assignments -> !apply(Range, :disjoint?, assignments) end)
end)
|> IO.inspect