Question

我有一个返回元组的函数：

let rec pack l = 
            let combine = List.fold packFunction (' ',[], []) l
            match combine with 
                            | (_,b,a) -> b::a |> List.rev |> List.tail

有没有办法在不使用匹配语句的情况下提取元组的部分？

即，id喜欢在不使用匹配语句的情况下获取b和a（_，b，a）

Answer 1

这样的东西？

let rec pack l = 
    let _,b,a = List.fold packFunction (' ',[], []) l
    b::a |> List.rev |> List.tail

您始终可以直接从元组中提取：

let a,b = (1,1)

或

let a,b = functionWhichReturnsTuple

Answer 2

模式匹配可以在除match之外的许多地方使用。在这种情况下，您似乎根本不需要combine（似乎pack也不需要递归）...

let pack l = 
    let _, b, a = List.fold packFunction (' ', [], []) l
    b::a |> List.rev |> List.tail

Answer 3

另一种方式（通过lambda参数进行模式匹配）：

let rec pack l =
    List.fold packFunction (' ',[], []) l
    |> fun (_,b,a) -> b::a |> List.rev |> List.tail

写比赛的方式更短

3 个答案: