F# 如何基于谓词而不是固定长度对序列进行窗口化

Question

给定以下输入序列，我想生成所需的输出。我知道如果所有窗口都是固定长度，则可以使用 Seq.window 几乎获得所需的结果。然而在这种情况下，它们的长度不是固定的，我想每当遇到“a”时就开始一个新的序列。标准集合库可以实现这一点吗？

let inputSequence = 
      ["a"; "b"; "c";
       "a"; "b"; "c"; "d";
       "a"; "b"; 
       "a"; "d"; "f";
       "a"; "x"; "y"; "z"]

let desiredResult = 
   [["a"; "b"; "c";]
    ["a"; "b"; "c"; "d";]
    ["a"; "b"; ]
    ["a"; "d"; "f";]
    ["a"; "x"; "y"; "z"]]

Answer 1

这是一种使用可变状态但非常简洁的方法:

let mutable i = 0
[ for x in inputSequence do
    if x = "a" then i <- i + 1
    yield i, x ]
|> List.groupBy fst
|> List.map snd
|> List.map (List.map snd)