Ошибка при использовании 'map' - Haskell

Question

type Point = (Double, Double) 

flipsOneY :: Point -> (Int, Int) -> Point 
flipsOneY point (i, j) = ((fst point), ((fromIntegral j) - (snd point))) 

changeY :: [Point] -> (Int, Int) -> [Point] 
changeY xs (i, j) = map flipsOneY xs (i, j) 

У меня есть список точек (x, y), где я хочу изменить значение координаты Y. Когда я пытаюсь скомпилировать это, я получаю эту ошибку:

Expr.hs:149:21: 
Couldn't match expected type `(Int, Int) -> Point' 
      with actual type `[(Int, Int) -> Point]' 
The function `map' is applied to three arguments, 
but its type `(Point -> (Int, Int) -> Point) 
       -> [Point] -> [(Int, Int) -> Point]' 
has only two 
In the expression: map flipsOneY xs (i, j) 
In an equation for `changeY': 
    changeY xs (i, j) = map flipsOneY xs (i, j) 

Я предполагаю, что неправильно использую карту. Приветствуется любой намек на решение. :-)

Answer 1

type Point = (Double, Double) 

flipsOneY :: Point -> (Int, Int) -> Point 
flipsOneY point (i, j) = ((fst point), ((fromIntegral j) - (snd point))) 

changeY :: [Point] -> (Int, Int) -> [Point] 
changeY xs (i, j) = map flipsOneY xs (i, j) 

map принимает 2 аргумента, но вы передаете это три.

Попробуйте положить скобку вокруг flipOnesY вызова, например, так:

changeY :: [Point] -> (Int, Int) -> [Point] 
changeY xs (i, j) = map (\ys -> flipsOneY ys (i, j)) xs 

Это также показывает, что ваш заказ аргумент flipsOneY не является оптимальным.