algorithm - 使用 seq 在 f# 中连分数

Question

您好，有没有一种方法可以使用 seq 而不是 list 来求解 f# 中的连分数？

let cfToScalar cf = List.foldBack (fun elem acc -> float elem + (1.0 / float acc)) cf System.Double.MaxValue

有点像那样，但我想使用 seq 而不是列表

Answer 1

正如我在评论中所说，您只需将 List.foldback 更改为 Seq.foldback 并且您的函数现在将接受序列。另请注意，正如 Sehnsucht 所说，foldback 的当前实现需要转换为数组，因此无限序列的输入将不起作用。

附带说明，因为 F# 4.0's normalization of the collection modules List/Array/Seq 模块中的大多数函数现在通常可以将一个模块换成另一个模块。