使用List.map部分应用元组函数

Question

给定一个带有两个参数的函数：

let f (a:int) (b:int) : string = sprintf "%d %d" a b

一个元组列表：

let myList = [(1,2) ; (3,3)]

如何使用地图部分应用元组运算符(||>)？

myList |> List.map ((||>) f)            //doesn't work
myList |> List.map (fun x -> (||>) x f) //boring

似乎我需要反转||>需要的论点。

Answer 1

myList |> List.map ((<||) f)

Answer 2

嗯，使用(<||)作为@desco做的是最短的答案。您可以使用uncurry轻松编写无点样式：

let inline uncurry f (x, y) = f x y
myList |> List.map (uncurry f)

或内置函数更奇怪：

myList |> List.map ((|>) f << (||>))

证明：

(|>) f << (||>)
<=> fun x -> ((|>) f << (||>)) x
<=> fun x -> ((|>) f) ((||>) x)
<=> fun x -> (|>) f ((||>) x)
<=> fun x -> f |> ((||>) x)
<=> fun x -> (||>) x f