f# - 通过F#中的条件公式创建循环序列

Question

再会。
创建序列(可能是有限的)或通过以下公式列出的最佳方法是什么？





例如，从1到9将会是

1, 2, 4, 5, 10, 11, 22, 23, 46

我认为可以在此处使用 List.fold 或 List.scan ，但是我不知道在哪里写 yield 。

Answer 1

您可以使用可变值和for循环来实现。另外，也可以使用unfold:

Seq.unfold (fun (a,i) -> 
    let a' = 
        if i % 2 = 0
        then a*2
        else a+1
    Some (a', (a',i+1)))
    (1,1)
|> Seq.append [1]