Clojure中如何简洁打印可变数量的命令行参数？

嘿，作为Clojure新手能尝试跳出过程式思维真的很棒！先帮你分析下原代码的问题，再给你几个更地道的函数式解决方案～

原代码的核心问题 #

你想用case模仿Java的条件穿透，但Clojure的case是精确值匹配，不是条件分支判断。你写的(case x (> x 0) ...)其实是在判断x是否等于表达式(> x 0)的返回值（也就是true或false），这完全不符合你的预期。另外，直接用nth args 0如果args为空的话还是会触发IndexOutOfBoundsException，得换更安全的方式。

方案1：遍历所有参数（最函数式的方式） #

如果想打印所有传入的参数，不管数量多少，用map-indexed和doseq的组合最适合，完全不用手动判断数量，天然避免越界：

(defn -main [& args]
  (println "There are" (count args) "input arguments.")
  (println "Here are args:" args)
  ;; 遍历每个参数及其索引，优雅处理序数显示
  (doseq [[idx arg] (map-indexed vector args)]
    (let [ordinal (nth ["1st" "2nd" "3rd" "4th" "5th"] idx (str (inc idx) "th"))]
      (println (str "Here is the " ordinal " arg: ") arg))))

• map-indexed vector args会把每个参数和它的索引配对成向量，比如["a" "b"]会变成[[0 "a"] [1 "b"]]
• doseq用来遍历这个序列，逐个处理每个参数
• nth处理序数：前5个用特殊后缀，超过的就用“数字+th”的通用形式，非常灵活

方案2：只处理前3个参数（按需定制） #

如果只想打印前3个参数，用参数解构+when判断更简洁，解构时如果参数不足，对应的变量会是nil，when会自动跳过：

(defn -main [& args]
  (println "There are" (count args) "input arguments.")
  (println "Here are args:" args)
  ;; 解构前3个参数，不足的话对应变量为nil
  (let [[first-arg second-arg third-arg] args]
    (when first-arg
      (println "Here is the first arg:" first-arg))
    (when second-arg
      (println "Here is the 2nd arg:" second-arg))
    (when third-arg
      (println "Here is the 3rd arg:" third-arg))))

这种方式比手动判断count更符合Clojure的风格，代码可读性更高，也不会出现越界问题。

一点小建议 #

Clojure的核心思想是操作序列而非手动管理索引和数量，尽量避免像过程式那样基于计数做分支判断，利用序列的抽象（比如map、doseq、解构）能让代码更简洁、更健壮～

内容的提问来源于stack exchange，提问作者Corba the Geek