如何在 clojure 中打印每行的数字列表？

Question

如何在 10 行上打印包含 n 个（例如 10 个）数字的列表？我刚刚了解了循环和递归，但似乎无法将副作用 (println i) 与 (recur (+ i 1)) 以循环形式结合起来。 非常清楚的是：我想要这样的输出：

1
2
3
4
5
6
7
8
9
10

当 n 为 10 时。

Answer 1

您可以为此使用doseq，这意味着当迭代涉及副作用时使用，

(doseq [i (range 10)]
   (println i))

您可以按照指出使用map，但这会产生一个充满nils的序列，这既不惯用，又浪费资源，而且doseq不是懒惰的，所以不需要用 doall 强制它。

Answer 2

我建议使用 dotimes 对于这种简单的循环：

(dotimes [i 10]
  (println (inc i)))

请注意，dotimes 是非惰性的，因此它对于像 println 这样会导致副作用的事情很有用。

Answer 3

使用loop/recur：

(loop [i 1]
  (when (<= i 10)
    (println i)
    (recur (inc i))))

然而，映射 函数 println 覆盖 1..10 中的数字。但由于 map 返回一个惰性序列，因此您必须强制使用 doall 进行评估：

(doall (map println (range 1 (inc 10))))

Answer 4

为了全面起见，您也可以使用地图来做到这一点：

(doseq (map #(println %) (range 10))

Answer 5

如果您只想在屏幕上打印输出，您也可以在输入条件之前简单地放置一个 (println i) ：

(loop [i 0]
  (println i)
  (if (< i 10)
    (recur (inc i))
    (println "done!")))

并且输出将是每行一个数字。