Haskell方法太慢了

Question

我在 Haskell 中编写了一个函数，如下所示：

maxSumme :: [[Int]] -> Int
maxSumme [] = 0
maxSumme (x:l) = if subSumme x < maxSumme l then maxSumme l else subSumme x

subSumme :: [Int] -> Int
subSumme [] = 0             
subSumme (x:l) = x + subSumme(l)

-- function call
maxSumme [[7,2,4],[5,8,1],[7,9,2]] -- with 25 innerLists

我测试过，但是这个方法很慢。如果我用 25 个包含 3 个项目的内部列表来调用它，则需要一分钟来计算 maxSumme。这不正常不是吗？我一定犯了一个错误，但我找不到它。如何优化我的方法？有没有更快的方法来做到这一点？

编辑：我认为发现了错误。我确信它是maxSumme l then maxSumme l。我每次都经常循环遍历列表，这需要很长时间。但实际上我不知道如何避免这种情况。

Answer 1

所以你找到了问题函数。这是因为对于每个列表，您多次调用subSumme。您可以做的是将subSumme 映射到传递给maxSumme 的每个列表，然后找到这些数字中的最大值：

maxSumme xs = maximum $ map subSumme xs

如果你不能使用maximum，你需要弄清楚如何自己实现它=P

---

为了解释$ 运算符，它的意思是总是在左边运行之前的所有内容。它使一个表达式像

f (g (h (i (j (k (l x))))))

进入

f $ g $ h $ i $ j $ k $ l x

请注意，这对于具有多个参数的函数会变得很棘手。这不会编译

map $ (1+) $ replicate 10 1

因为是一样的

  map ((1+) (replicate 10 1))
= map ((1+) replicate 10 1))
= map (1 + replicate 10 1)
= map (1 + [1, 1, 1, 1, 1, 1, 1, 1, 1, 1])
         ^------ Can't add a number to a list!

但你可以这样做

map (1+) $ replicate 10 1

基本上，它只是为了在很多情况下消除对括号的需求。