Есть ли эквивалент F # Enumerable.DefaultIfEmpty?

Question

После поиска довольно много, я не смог найти эквивалент F # Enumerable.DefaultIfEmpty.

Что-то подобное существует в F # (возможно, в другом, идиоматическом смысле)?

Answer 1

Seq функция модуль работает и возвращает IEnumerable<_> 'S и DefaultIfEmpty работать и возвращать IEnumerable<_>' с. Как насчет просто обернуть его в функцию, которая является составной.

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

Это также сохраняет лень.

пример:

Seq.empty |> DefaultIfEmpty 0 

Update

Я сделал библиотеку с открытым исходным кодом встраивание много расширений и статические методы, в том числе Enumerable.defaultIfEmpty - ComposableExtesions

Answer 2

Есть несколько вариантов:

1. Используйте DefaultIfEmpty, которые могут быть не идиоматическое, но будет работать

2. написать свой собственный вот так:

   let DefaultIfEmpty (l:'t seq) (d:'t) = 
       match Seq.length l with |0 -> seq [d] |_ -> l 
   

3. Беспокойства о бесконечных последовательностей

   let DefaultIfEmpty (l:'t seq) (d:'t) = 
       match Seq.isEmpty l with |true -> seq [d] |false -> l 
   

Answer 3

Чтобы сохранить ленивость последовательности, мы могли бы работать с состоянием перечислителя.

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 }