在字符串列表中每隔 n 个元素插入字符串

Question

我是 Clojure 的新手。

我正在开发一个井字游戏

我正在尝试创建一个“格式化”板的函数，这是一个以位置编号为键的地图，关键字:x :o 和:e 用于值（：e 代表空）。

---

我想在关键字名称列表中每 3 插入一个换行符。

例如，"x" "x" "x" "e" "e" "e" "e" "e" "e" 应转换为 "x" "x" "x" "\n" "e" "e" "e" "\n" "e" "e" "e"，然后我会将这些字符串连接起来以便打印。

(defn- newline-every
  [n list]
  (if (empty? list)
    []
    (let [[fst snd] (split-at n list)]
      (concat
        (conj fst "\n")
        (newline-every n snd)))))

Answer 1

它是 Clojure，所以在一行中肯定有很多方法可以做到这一点。这是一次尝试：

(flatten (interpose "\n" (partition n list))))

正如用户 amalloy 评论的那样，没有任何借口可以使用 flatten，所以这里有一个更好的方法：

(apply concat (interpose ["\n"] (partition n list))))

哪个给出，从你给出的字符串序列（都包含一个字符）开始：

... > (newline-every 3 ["x" "x" "x" "e" "e" "e" "e" "e" "e"])
("x" "x" "x" "\n" "e" "e" "e" "\n" "e" "e" "e")

然后您可以将其转换为字符串：

... > (apply str (newline-every 3 ["x" "x" "x" "e" "e" "e" "e" "e" "e"]))
"xxx\neee\neee"