使 printfn 在函数管道中更清晰

Question

所以我把最后一块放在管道里

|> Array.iter (fun name -> name 
                                |> transform 
                                |> printfn "RENAME '%s' INTO '%s'" name )

变换是：

let transform (text: string) = 
    text.Replace(" ", ".")

对我来说iter 谓词函数不是很清楚，它是说将名称推入transform 然后将结果推入printfn 并附加原始名称......

有没有办法使用管道向前或向后操作符使转换管道更能揭示意图。

我想也许

name
  |> printfn "RENAME '%S' INTO '%S'"
  <| transform

但显然这行不通。

如果它不能在管道中看起来更好，那么我想这是最简洁的方法 - 除了创建一个新函数以某种方式将 printfn 与转换结合起来，但我不介意避免这种情况.. .

我只是想确保我没有遗漏任何简单的语法..

我认为没有，因为我面临一个需要多个参数的函数，为了在管道中使用它，它只能有 1 个参数，这实际上是我通过部分应用程序所做的.

Answer 1

有时最好避免不必要的管道，因为它会混淆代码。 您的函数仅打印如下：

printfn "RENAME '%s' INTO '%s'" name (transform name)

你可以使用<|省略括号：

printfn "RENAME '%s' INTO '%s'" name <| transform name

恕我直言，这看起来更好。

Answer 2

也许在这种情况下跳过管道更清楚？

|> Array.iter (fun name -> printfn "RENAME '%s' INTO '%s'" name (transform name))

另请注意，您的原始谓词可以像这样进一步组合：

|> Array.iter (transform >> printfn "RENAME '%s' INTO '%s'" name)

如果您希望变换最后出现，可以这样写：

|> Array.iter ((printfn "RENAME '%s' INTO '%s'" name) << transform)

Answer 3

这就是我完成这项任务的方式：

let array = [|
    "one"
    "two"
    "three"
|]


let transform s = s, s + "_transformed"

let printIt (n,t) =  printfn "RENAME '%s' INTO '%s'" n t 


array
|> Array.map transform
|> Array.iter printIt

我的“最佳实践”告诉我，我始终应该创建和使用函数。这样流程（map 和 iter）是恒定的，函数或数据可能会发生变化。

“阐明”为什么要使用函数以及不使用函数的附录

let myPipeLineWithPrint t p a=
    a
    |> Array.map t
    |> Array.iter p

//"Old" Version With above data
myPipeLineWithPrint transform printIt array


type SomeRecord = {
    Name: string
    MoreStuff: string
}

type OtherRecord = {
    NewName: string
    OldName: string
}


let array2 = [|
    {Name="one"; MoreStuff="dontcare"}
    {Name="two"; MoreStuff="dontcare"}
    {Name="three"; MoreStuff="dontcare"}
|] 

let transform2 {Name=n; MoreStuff=ms} = transform n

myPipeLineWithPrint transform2 printIt array2


let transform3 {Name=n; MoreStuff=_} =
    let (_,nn) = transform n
    {NewName= nn; OldName=n}

let printIt2 {NewName=nn; OldName = o} = printfn "RENAME '%s' INTO '%s'" o nn   

myPipeLineWithPrint transform3 printIt2 array2