f# - 重复流水线的 F# 语法

Question

F# 中是否有任何语法允许简洁地按函数列表进行流水线操作？例如，

    x |> fun1 |> fun2 |> fun3 ...

或者是否有一种设计模式使这项任务变得不必要？就我而言，我正在制作一个（天真的）数独求解器，并具有如下所示的功能：

let reduceByRows poss = 
    poss 
    |> reduceBy (rowIndeces 1) |> reduceBy (rowIndeces 2) |> reduceBy (rowIndeces 3)
    |> reduceBy (rowIndeces 4) |> reduceBy (rowIndeces 5) |> reduceBy (rowIndeces 6)
    |> reduceBy (rowIndeces 7) |> reduceBy (rowIndeces 8) |> reduceBy (rowIndeces 9)

有没有办法清理这样的东西？

Answer 1

看待这个的一种方法是折叠流水线操作符|>而不是折叠数据：

{1..9} |> Seq.map (rowIndices >> reduceBy)
       |> Seq.fold (|>) poss

一般来说，如果fun1,fun2等具有相同的签名，您可以应用|>一系列函数，即重复流水线：

  [
   fun1; 
   fun2; 
   fun3;
   //...
         ] |> List.fold (|>) x

Answer 2

对我来说看起来像一个折叠。关于什么

let reduceByRows poss = 
  Seq.fold (fun p i -> reduceBy (rowIndices i) p) poss {1..9}