czy funkcja tee istnieje gdzieś w bibliotece F #?

Question

... lub w FSharpx?

let tee sideEffect = 
    fun x -> 
     do sideEffect x 
     x 

Wykorzystanie może być coś podobnego

f >> tee (printfn "F returned: %A") >> g >> h 

Lub czy istnieje inny prosty sposób to zrobić?

dziękuję!

Answer 1

ExtCore zawiera funkcję o nazwie tap, która wykonuje dokładnie to, co chcesz. Używam go przede wszystkim do sprawdzania wartości pośrednich w obrębie potoku F # "(stąd nazwa).

Na przykład:

[| 1;2;3 |] 
|> Array.map (fun x -> x * 2) 
|> tap (fun arr -> 
    printfn "The mapped array values are: %A" arr) 
|> doOtherStuffWithArray 

Answer 2

Najbliższe, jakie widziałem, to w rzeczywistości WebSharper. Definicja brzmi:

let inline (|>!) x sideEffect = 
    do sideEffect x 
    x 

Zastosowanie:

(x |>! printf "%A") |> nextFunc 

Answer 3

O ile mi wiadomo, to funkcja tak nie jest nigdzie zdefiniowane w F # podstawowej bibliotece - choć biblioteka brakuje wiele standardowych funkcji, które są dość łatwe do zdefiniowania, więc moim zaleceniem byłoby dodanie go gdzieś w twoim projekcie - Twój tee wydaje się najlepszym sposobem.

Powiedział, że pewnie wolą używać mniej deklaratywny styl czy muszę skutków ubocznych i napisać coś takiego:

let fResult = f fInput 
printfn "F returned: %A" fResult 
fResult |> g |> h 

To tylko kwestia stylu, ale wolę styl deklaratywny całkowicie deklaratywny kod i obowiązkowy styl w przypadku wystąpienia efektów ubocznych. Jako bonus, używanie lokalnych zmiennych ułatwia debugowanie. Ale używanie funkcji takiej jak tee jest równie dobrą alternatywą, którą wolałby wielu ludzi ze społeczności F #.