f# - 我在 F# 中分块列表时做错了什么

Question

F# 对我来说并不容易。下面的一段代码应该对一个列表进行分块。我不知道问题出在哪里。请帮忙。

let chunk items chunkSize =
    let folder = fun state x ->
        match state with (reversedResult, reversedChunk) ->
            if reversedChunk.Length < chunkSize then
                (reversedResult, x::reversedChunk)
            else
                ((reversedChunk |> List.rev)::reversedResult, [x])
    let alsmostDone = items |> List.fold folder ([], [])
    match alsmostDone with
    | (reversedResult, []) -> reversedResult |> List.rev
    | (reversedResult, lastReversedChunk) -> (lastReversedChunk |> List.rev)::reversedResult |> List.rev

Answer 1

我认为使用 List.length 更“惯用”f#。然后你不需要任何类型注释。所以:

...
if List.length reversedChunk < chunkSize then
...