F＃數組的累積積

Question

使用F＃，我想計算沒有任何循環的數組的累積乘積。第一個想法是使用Array.fold和Array.map，但我不明白我可以如何使用它們。你有什麼建議？或使用遞歸函數peharps？非常感謝您的幫助。

Answer 1

如果你需要的所有元素的產品，你可以使用摺疊確實：

> let a = [|1;2;3;4;5|]; 
> a |> Array.fold (*) 1;; 

val it : int = 120 

如果需要中間（累計）的結果，你可以使用scan。掃描獲取數組中的每個元素並將一個函數（本例中爲product）應用於該元素以及之前的累計結果。與蓄能值1開始，我們得到：

> a |> Array.scan (*) 1;; 

val it : int [] = [|1; 1; 2; 6; 24; 120|] 

Answer 2

您可以使用Array.scan：

​​

Answer 3

其他已經給了很好的回答，只是一般性發言。你的陳述「或者一個遞歸函數」通常是不必要的。大約95％的時間，你可以使用摺疊。如果您需要非標準的迭代順序，那麼遞歸函數是要走的路。

除此之外，不考慮如何一次完成整個操作，即如何處理您的案例中的數字列表，而只是考慮如何處理一個項目。

從那你你得到需要將項目與累加器相乘。因此，在這種情況下，您不再需要遞歸，因爲您在迭代本身上抽象了摺疊。

Answer 4

如果您想使用尾遞歸函數來完成這項工作。你可能會想嘗試做某事類似：

let l = [1;2;3;4;5] 

let product lst = 
    let rec pTR acc = function 
     | [] -> acc 
     | h::t -> pTR (h * acc) t 
    pTR 1 lst 

product l