可变参数记录探针的返回值

Question

我希望这个函数准确地返回它所传递的内容（作为参数传入）：

(defn log [& txts]
  (.log js/console (apply str txts))
  txts)

由于txts被返回的那一刻，这与传入的调用者不完全相同。

一旦这个问题得到解答，我将拥有一个能够用作探针的日志记录函数——能够在不改变程序所做的任何事情的情况下包裹任何现有的函数调用。

这是一个 REPL 友好（复制和粘贴，日志函数已更改为适用于 Clojure）示例，它显示日志记录会影响输出：

(def infos [{:colour [0,0,139]} {:colour [255,255,0]} {:colour [0,0,0]} {:colour [255,0,0]}])

(defn log [& txts]
  (println (apply str txts))
  txts)

(defn random-colour-logged
  []
  (let [colour-idx (rand-int 4)]
    (log (:colour (get infos colour-idx)))))

(defn random-colour-not-logged
  []
  (let [colour-idx (rand-int 4)]
    (:colour (get infos colour-idx))))

(random-colour-logged)
(random-colour-logged)
(random-colour-not-logged)
(random-colour-not-logged)  

这是我刚刚收到的输出：

user=> (random-colour-logged)
[255 255 0]
([255 255 0])
user=> (random-colour-logged)
[0 0 139]
([0 0 139])
user=> (random-colour-not-logged)
[255 255 0]
user=> (random-colour-not-logged)
[255 0 0]

Answer 1

当你定义你的函数为

(defn log [& txts]
  ...
  txts)

这意味着您可以传递任意数量的参数，然后将这些参数收集在一个列表 txt 中。因此，您的情况下的返回值是一个列表。

所以当你打电话时

(random-colour-logged)

txts 的值将是单个向量的列表：

'([255 255 0])

这发生在您的示例中（在您的函数内部）：

user=> (println (apply str '([255 255 0])))
[255 255 0]

尝试将您的功能更改为

(defn log [txt]
  (.log js/console txt)
  txt)

它应该可以正常工作。

编辑： 您还可以更改调用日志函数的方式：

(defn random-colour-logged
  []
  (let [colour-idx (rand-int 4)]
    (apply log (:colour (get infos colour-idx)))))

这样 - 你记录的内容和函数返回的内容都是相同的 - 数字列表。