这个function的结果是什么？

Question

这是我在测试中得到的代码，我想知道 output 是什么：

funkcija[] _ = 0
funkcija (glava:rep) broj
   | glava > broj = funkcija rep broj
   | glava <= broj = glava + (funkcija rep broj)
funkcija [4,2,1,5,7,6] 2*3

我是否将数组中的头/第一个数字与 6 (2*3) 或 2 进行比较，然后将总和乘以 3？

正确答案是 18 还是 9？

Answer 1

Function 应用程序优先于运算符，所以这被解释为：

(funkcija [4,2,1,5,7,6] 2) * 3

您的funkcija本质上是一个首先过滤的总和：它只会对小于或等于第二个参数（此处为2 ）的值求和，因此对于[4,2,1,5,7,6]这将求和up 2 + 1即3然后乘以 3 得到9 。

funkcija可以替换为：

funkcija :: (Num a, Ord a) => [a] -> a -> a
funkcija xs t = sum (filter (<= t) xs)