在haskell中返回双精度

Question

现在我想要做的是编写另一个函数triangle_areas（注意在这里使用复数形式），该函数采用双精度列表，将每个连续的三个双精度组视为三边的长度的三角形，使用triangle_area来计算其面积;并且在处理完列表中的所有双打后，将所有计算出的区域作为双打列表返回。

这是我的代码到目前为止。

triangle_area :: Double -> Double -> Double -> Double 
triangle_area a b c = sqrt (s * (s - a) * (s - b) * (s - c)) 
    where s = (a + b + c)/2.0 

triangle_areas :: [Double] -> [Double] 
triangle_areas xs = [] 

Answer 1

使用模式匹配来获取输入的前三个元素，然后递归。如果您认为triangle_areas总是调用它的长度是3

triangle_areas :: [Double] -> [Double] 
triangle_areas [] = [] 
triangle_areas (a:b:c:xs) = triangle_area a b c : triangle_areas xs 

多对于一个额外的元素或两个列表，有很多的选项列表这是最简单的。一个是简单地忽略它们。

-- Case 3 
triangle_areas _ = [] 

另一种方法是简单的返回一个错误

-- Case 3 
triangle_areas _ = error "Incomplete final set" 

另一个是返回一个值Either

triangle_areas :: [Double] -> Either String [Double] 
triangle_areas [] = Right [] 
triangle_areas (a:b:c:xs) = Right $ triangle_area a b c : triangle_areas xs 
triangle_areas _ = Left "Incomplete final set" 

而且还有其他的。