f# - 在 F# 序列中复制列表项 n 次

Question

我在 F# 中有一个序列:

let n = 2

let seq1 = {
    yield "a"
    yield "b"
    yield "c"
}

我想打印序列中的每个项目 n 次。我可以这样做:

let printx line t = 
    for i = 1 to t do
        printfn "%s" line

seq1 |> Seq.iter (fun i -> printx i n)

这个的输出是:
一种
一种
乙
乙
C
C

我认为这不是最好的解决方案。如何复制序列中的项目？

Answer 1

您可以创建一个函数来复制输入序列的每个元素:

let replicateAll n s = s |> Seq.collect (fun e -> Seq.init n (fun _ -> e))

然后

seq1 |> replicateAll 2 |> Seq.iter (printfn "%s")