需要帮助在字符串问题中替换名称（clojure）

Question

我正在为Clojure做一个练习题，应该很简单，但实际上却让我很头疼，问题描述如下：

two-fer或2-fer是二对一的缩写。一个代表你，一个代表我。给定一个名称，返回一个带有消息的字符串：“One for X， one for me。”其中X是给定的名称。但是，如果缺少名称，请返回字符串：“One for you， one for me。”

这就是我所尝试的：

(defn two-fer [& name]
  (if (nil? name)
    "One for you, one for me."
    (str "One for " name ", one for me."
  )
)

然而，我最终得到了以下单元测试输出：

预期：（=“一个给鲍勃，一个给我。”（双弗/双弗“鲍勃”））实际：（不是（=“一个给鲍勃，一个给我。”“一个给（“鲍勃”），一个给我。”））

lein测试：只有两个-fer-test/name-alice-test

（name alice test）（two\u fer\u test.clj:9）应为失败：（=“一个给alice，一个给我。”（两个“爱丽丝”）实际：（不是（“一个给爱丽丝，一个给我。”“一个给（“爱丽丝”），一个给我。”）

应为（两个fer测试）（两个fer clj：5）中的错误：（=“一个给你，一个给我。”（两个fer/两个fer））实际值：java。lang.ClassCastException：类java。无法将lang.字符串转换为clojure类。lang.IFn（java.lang.String位于加载器“bootstrap”的模块java.base中；clojure.lang.IFn位于加载器“app”的未命名模块中）

我也尝试过：

(defn two-fer [& name]
  (str "One for " (if (nil? name) "you" name) ", one for me.")
)

(defn two-fer [& name]
  (if (nil? name)
    "One for you, one for me."
    (eval `(str "One for " ~name ", one for me.")
  )
)

(defn two-fer [& name]
  (if nil? name)
    "One for you, one for me."
    (clojure.string/replace (str "One for " name ", one for me.") #"\\(?\\"\\)" ""))
  )
)

Answer 1

(defn two-fer [& names]
  (str "One for " (if (empty? names) "you" (first names)) ", and one for me."))

;; or using `or` (old lisp style, not Clojure's best practice):
(defn two-fer [& names]
  (str "One for " (or (first names) "you") ", and one for me."))

Answer 2

问题是

您可能需要这样的东西：

(defn two-fer
  [& args]
  (let [name (if (empty? args)
               "you"
               (first args))]
    (str "One for " name ", one for me.")))

有结果

(two-fer "Bob")  => "One for Bob, one for me."
(two-fer)        => "One for you, one for me."

您可能也对这个留档源列表感兴趣。

Answer 3

您可以编写multi-arity函数：

(defn two-fer
  ([] (two-fer "you"))
  ([name] (str "One for " name ", one for me.")))