F# Seq.next - 正确的模式是什么？

Question

作为使用策略模式的项目的一部分，我正在尝试编写一个函数，该函数创建一个函数，该函数在每次应用时返回无限序列的下一个值。目前我正在使用这个狡猾的 GetNext 功能：

let GetNext<'T> (enumerator:System.Collections.Generic.IEnumerator<'T>) =
    let n = enumerator.MoveNext()
    enumerator.Current

let FunctionFactory<'T> =
    let s = 0.0 |> Seq.unfold (fun i -> Some(i, if 0.0 = i then 1.0 else 0.0))
    let enumerator = s.GetEnumerator()
    (fun (ignoredParam:'T) -> GetNext enumerator )

我希望 FunctionFactory 看起来像这样：

let FunctionFactory<'T> =
    let s = 0.0 |> Seq.unfold (fun i -> Some(i, if 0.0 = i then 1.0 else 0.0))
    (fun (ignoredParam:'T) -> Seq.next s )

ignoredParam 用于通过相同策略模式并依赖于它提供的上下文的其他函数。既然这看起来很糟糕，我真的有两个问题。为什么没有Seq.next？实现可以注入到这样的策略框架中的各种序列表达式的正确/优雅的方式是什么？

根据 Fyodor Soikin 的回答编辑 - 序列表达式目前对我很有吸引力，因为它们帮助我思考我正在研究的问题。而不是可变的命令式代码，我想在这个模式上构建更复杂的输入序列。

Answer 1

您是否注意到您从未处理过枚举器？ 这就是为什么没有Seq.next：它的使用需要不合理的设计。

至于第二个问题，您要实现的“this”是什么并不完全清楚。据我从代码中收集到的，您正在尝试生成一个“有状态过程”，它将产生 1.0 或 0.0，每次调用时都会切换。对吧？

如果是这样，我会通过可变值来实现。比序列少得多的开销：

let FunctionFactory<'T> =
    let mutable flag = true
    fun (_:'T) -> 
       flag <- not flag
       if flag then 1.0 else 0.0