f# - 如何在 F# 中测试序列是否无限？

Question

如果我有一个由递归函数生成的序列，如下所示：

let rec genConst t = seq { yield t ; yield! genConst (t) }
let inf = genConst 1

如何测试 inf 的长度是否为无限？

Answer 1

基本上是不可能的。
F# 序列本质上是对IEnumerable<'T>. (MSDN) 和(MSDN)
都没有提供任何检索其长度的方法。IEnumerable<'T> IEnumerator

UPD 感谢@svick 的重要更正。

Answer 2

如果它有助于您的特定情况，您可以定义一个标记序列无限的包装器类型：

type InfiniteSeq<'T> = private Infinite of seq<'T> with
  interface seq<'T> with
    member x.GetEnumerator() = let (Infinite s) = x in s.GetEnumerator()
  interface System.Collections.IEnumerable with
    member x.GetEnumerator() = let (Infinite s) = x in s.GetEnumerator() :> _

module Seq =
  let infinite source = Infinite source

let rec genConst t = seq { yield t ; yield! genConst (t) } |> Seq.infinite

let firstFive = genConst 1 |> Seq.take 5

你得到多态性，seq<_>类型表示附加行为。