如何将列表展开为列表的收益？

Question

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

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

产额

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

我试着用seq/ write写同样的，但是失败了.这个是可能的吗？还有其他写这个函数的好方法吗？

Answer 1

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