這個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)