-- School of Haskell "Basics of Haskell" Chapter 2
-- https://www.schoolofhaskell.com/school/starting-with-haskell/basics-of-haskell/2-my-first-program

-- Exercise 3
-- Define a function that takes a segment and returns it's center point:

center :: ((Double, Double), (Double, Double)) -> (Double, Double)
center ((x1, y1), (x2, y2)) = ((x1 + x2)/2, (y1 + y2)/2)
center :: ((Double, Double), (Double, Double)) -> (Double, Double)
center ((x1, y1), (x2, y2)) = ((x1 + x2)/2, (y1 + y2)/2)
center ((x1, y1), (x2, y2)) = ((x1 + x2)/2, (y1 + y2)/2)