haskell - haskell上点之间的距离

Question

我是 Haskell 新手，我必须做一个函数，它接受一个列表并递归计算距离。

For example:
distance [(0,0),(2,0),(2,5)]
->7
distance [(1,1),(3,4)]
->3.6055512

我像这样设置了两点之间的距离

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

但不知道如何使用可变列表大小来实现它，谢谢

Answer 1

我们可以将此函数重命名为 distance2 以指定它计算两点之间的距离:

distance2 :: Floating a => (a, a) -> (a, a) -> a
distance2 (x1 , y1) (x2 , y2) = sqrt (x'*x' + y'*y')
    where x' = x1 - x2
          y' = y1 - y2

接下来我们可以利用zipWith :: (a -> b -> c) -> [a] -> [b] -> [c]同时迭代两个列表，并对元素应用函数。这里我们迭代列表及其尾部。这将产生一个距离列表。我们可以利用sum :: (Num a, Foldable f) => f a -> a总结这些距离:

distance2 :: Floating a => [(a, a)] -> a
distance [] = 0
distance xa@(_:xs) = sum (zipWith distance2 xa xs)