Haskell中列表的内容相乘

Question

我是Haskell的初学者，正在尝试实现一个函数，该函数返回相乘在一起的列表的内容。 这是我的代码：

product' :: Num a => [a] -> a
product' [] = 1
product' (_:xs) = foldl (*) 1 xs

在命令行中，我在以下位置键入产品：

product' [2,3,4]

我得到12而不是24。我知道这与未读取列表的第一个元素有关，但我无法弄清楚。 任何帮助或指导将不胜感激。

Answer 1

写吧

product' :: Num a => [a] -> a
product' = foldl (*) 1

要么

product' :: Num a => [a] -> a
product' [] = 1
product' (x:xs) = foldl (*) x xs

如果您希望保留参数。