是否存在与Enumerable.DefaultIfEmpty相当的F#？

Question

经过相当多的搜索,我找不到与Enumerable.DefaultIfEmpty相当的F#.

F#中是否存在类似的东西(也许是以不同的,惯用的方式)？

Answer 1

为了保持序列的懒惰,我们可以使用枚举器的状态.

let DefaultIfEmpty (l:'t seq) (d:'t) = 
    seq{
        use en = l.GetEnumerator()
        if en.MoveNext() then 
            yield en.Current
            while en.MoveNext() do
                yield en.Current 
        else
            yield d }

Answer 2

Seq模块函数操作和返回IEnumerable<_>以及DefaultIfEmpty操作和返回IEnumerable<_>。将其包装在可组合的函数中怎么样？

let inline DefaultIfEmpty d l = System.Linq.Enumerable.DefaultIfEmpty(l, d)

这也保留了懒惰。

例子：

Seq.empty |> DefaultIfEmpty 0

更新

我制作了一个内联许多扩展和静态方法的开源库，包括Enumerable.defaultIfEmpty-- ComposableExtesions