Clojure中的紧凑方式打印可变数量的命令行arguments？

Question

我是 Clojure 的新手。 我想我正在尝试通过程序解决这个问题，并且在 Clojure 中必须有更好（更实用）的方法来做到这一点......

-main function 可以接收可变数量的“args”。 我想将它们打印出来，但要避免 IndexOutOfBoundsException。 我以为我可以模仿 Java 并使用案例失败来最小化所涉及的代码，但这不起作用：

(defn -main [& args]
  (println "There are" (str (count args)) "input arguments.")
  (println "Here are args:" (str args))
  (let [x (count args)]
    (case x
      (> x 0) (do
          (print "Here is the first arg: ")
          (println (nth args 0)))
      (> x 1) (do
          (print "Here is the 2nd arg: ")
          (println (nth args 1)))
      (> x 2) (do
          (print "Here is the 3rd arg: ")
          (println (nth args 2))))))

Answer 1

(doseq [[n arg] (map-indexed vector arguments)]
  (println (str "Here is the argument #" (inc n) ": " (pr-str arg))))

map-indexes类似于map但在开头添加索引号。 因此，它逐项通过 arguments，将索引和项打包到一个vector中，并通过解构索引号和项映射到[n arg] 。

由于 clojure 从0开始计数，因此您使用(inc n)从1开始计数。 pr-str是漂亮的打印字符串。 str将所有字符串组件连接在一起。

Answer 2

clojure 的核心库中还有一个方便的格式化工具： cl-format ，它是通用 lisp 格式语法的端口。 它包括一个打印出 collections 的好方法：

(require '[clojure.pprint :refer [cl-format]])

(let [args [:a :b :c :d]]
  (cl-format true "~{here is the ~:r arg: ~a~%~}"
             (interleave (rest (range)) args)))

;; here is the first arg: :a
;; here is the second arg: :b
;; here is the third arg: :c
;; here is the fourth arg: :d

有关format可以做什么的更多信息在这里