f# - 如何在 F# 中对顺序值进行分组

Question

让我们考虑以下排序数据:

[1; 2; 3; 5; 6; 20; 21; 22; 23]

我想得到:

[ [1; 2; 3]; [5; 6]; [20; 21; 22; 23] ]

实现此目标的最佳方法是什么？ (列表最多 1000 个条目)。

Answer 1

这里的版本可能更加地道，至少对我而言，更具可读性。它仅依赖于 List 模块中的标准函数 foldBack 并完全避免了可变性。

let group ls =
    (ls, [])
    ||> List.foldBack (fun l s ->
        match s with 
        | [] | [[]] -> [[l]]
        | (n::res)::ns ->
            if n = l+1
            then (l::n::res)::ns
            else [l]::(n::res)::ns)

它也可能被重构为一个更通用的函数

let chunkBy cond ls =
    (ls, [])
    ||> List.foldBack (fun l s ->
        match s with 
        | [] | [[]] -> [[l]]
        | (n::res)::ns ->
            if cond l n
            then (l::n::res)::ns
            else [l]::(n::res)::ns)

let group = chunkBy (fun prev next -> prev + 1 = next)

请注意，这利用了仅在列表上实现的缺点运算符 ::。 cons 运算符将一个项目添加到列表中，这就是该函数使用 foldBack 的原因。