自行車流水線

Question

我有一個矩陣：Array2D和功能

let DivideAndSubstract value index (matrix: float[,]) = 
    //something that returns a matrix 

，所以我需要這個功能n次應用到我的矩陣這樣的：

matrix 
|> DivideAndSubstract matrix.[0,0] 0 
|> DivideAndSubstract matrix.[1,1] 1 
|> DivideAndSubstract matrix.[2,2] 2 
.... 
|> DivideAndSubstract matrix.[n,n] n 

其中n = Array2D.length1矩陣 - 1
我該如何實現這種流水線？

Answer 1

從我的頭頂：

{0..n} |> Seq.fold (fun M k -> DivideAndSubtract matrix.[k,k] k M) matrix 

編輯：幾句話不會傷害答案：

使用摺疊爲x的「申請F到典型模式並將F應用於結果並將F應用於該結果......直到我不需要再應用F爲止。上述命令行版本將爲

let mutable M = matrix 
for k in 0..n do 
    M <- DivideAndSubtract matrix.[k,k] k M 
M 

折線內，M表示每一步的中間結果。它可能需要一段時間才能掌握褶皺的工作方式，但一旦你做了，它們就非常強大。