haskell - 计算两点之间的距离 (Haskell)

Question

给定两个元组的输入，我希望能够使用以下公式计算两点之间的距离:距离 = sqrt ( (x1 - x2) ^ 2 + (y1 - y2) ^2 )

所以我希望函数调用和输出看起来像这样:

-- > distance (5 , 10) (3 , 5)
-- 5.385...

当我尝试运行下面的代码时，它告诉我输入“where”时出现解析错误。谁能帮我解决我的问题？这是我的代码:

distance (x1 , y1) (x2 , y2) = sqrt (x'*x' + y'*y')
where
    x' = x1 - x2
    y' = y1 - y2

Answer 1

您出现了缩进错误，这应该可以工作 - 查看 where 子句是如何缩进的:

distance (x1 , y1) (x2 , y2) = sqrt (x'*x' + y'*y')
    where
      x' = x1 - x2
      y' = y1 - y2