Question

我有一个代码如下：

this.GetItemTypeIdsAsListForOneItemTypeIdTreeUpIncludeItemType itemType.AutoincrementedId
|> Array.map (fun i -> i.AutoincrementedId)
|> Array.map (BusinessLogic.EntityTypes.getFullSetOfEntityTypeFieldValuesForItemTypeAid item.Autoincrementedid)
|> Array.fold Array.append [||]
|> Array.map (fun fv -> { fv with ReferenceAutoId = aid } )
|> Array.toSeq
|> Seq.distinctBy (fun fv -> fv.Fieldname)
|> Seq.toArray

有时这些代码会得到我需要解释的异常结果。通常代码中没有错误。数据中存在错误。我需要解释为什么这个数据支持不正确。最好的方法是什么？

我只想查看此表达式每一步的列表。

类似的东西：

func data
|> func2 && Console.WriteLine
|> func3 && Console.WriteLine
....

获取输入，将其拆分为两个。将其中一个输出传递给下一个函数，然后将第二个输出传递给控制台。

Answer 1

对于快速而肮脏的解决方案，您始终可以添加如下函数：

// ('a -> unit) -> 'a -> 'a
let tee f x = f x; x

例如，如果你有这样的构图：

[1..10]
|> List.map string
|> String.concat "|"

您可以插入tee以实现副作用：

[1..10]
|> List.map string
|> tee (printfn "%A")
|> String.concat "|"

那是不起作用，但如果您只需要查看一些中间值，可以在紧要关头使用;例如用于故障排除。

否则，对于“正确”的功能解决方案，也许应用State monad可能是合适的。这将使您能够在执行计算时携带状态。例如，州可以包含沿途收集的自定义消息......

如果您只是想在发现问题时立即“退出”，那么Either monad就是合适的方式。

如何从多步骤管道功能的每个步骤中获取中间结果？

1 个答案: