如何将列表展开为具有产量的列表列表？

Question

另一个不切实际的练习...我有一个函数可以将列表展开为从每个列表元素开始的列表序列：

[ 1; 2; 3 ] |> Seq.unfold (fun lst -> 
  match lst with
  | x::xs -> Some(lst, xs)
  | [] -> None
  )

产生

  seq [[1; 2; 3]; [2; 3]; [3]]

我试图用 seq/yield 写同样的东西，但失败了……这可能吗？还有其他写这个函数的好方法吗？

Answer 1

let rec seqOfLists lst =
    seq {
        match lst with
        | _::xs -> 
            yield lst
            yield! seqOfLists xs
        | [] -> ()
    }