f# - 将数组提供给 printfn

Question

我正在打印一个井字游戏板。我有一个用于电路板每个单元格的字符数组和一个用于电路板的格式字符串。我目前正在做:

let cells = [| 'X'; 'O'; 'X'; 'O'; 'X'; 'O'; ' '; ' '; ' ' |]
printfn ".===.===.===.\n\
         | %c | %c | %c |\n\
         .===.===.===.\n\
         | %c | %c | %c |\n\
         .===.===.===.\n\
         | %c | %c | %c |\n\
         .===.===.===.\n" cells.[0] cells.[1] cells.[2] cells.[3] cells.[4] cells.[5] cells.[6] cells.[7] cells.[8]

有没有办法将单元格数组提供给 printfn 而不显式枚举数组中的所有 9 个项目？我可以以某种方式使用 Array.fold 或 kprintf 吗？

Answer 1

Funk 的回答相当不错，但我认为您可以通过引入 join 使其更简单函数将元素(单个单元格或行)与它们之间和周围的分隔符连接起来。

let join s arr = sprintf "%s%s%s" s (String.concat s arr) s

然后你可以这样做:

cells
|> Seq.chunkBySize 3
|> Seq.map (Seq.map (sprintf " %c ") >> join "|")
|> Seq.map (fun s -> s + "\n")
|> join ".===.===.===.\n"
|> printfn "%s"