计算两点之间的距离（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