findFarthestTwoPoints :: [Point] -> [Point] -> Double -> [Point]
findFarthestTwoPoints [] finalList dist = finalList
findFarthestTwoPoints :: [Point] -> [Point] -> Double -> [Point]
findFarthestTwoPoints [] finalList dist = finalList
findFarthestTwoPoints [] finalList dist = finalList