如何在JTextArea上打印Clojure时间流逝函数

Question

我有一个名为"output text"的JTextArea，我想附加执行函数"transfer all"所用的时间，但它不起的作用

 (defn transfer-all []
    (doseq [i my-map]
      (transfer i account-destination money)
      )
  )
    ...
  (.append output-text (str (time (transfer-all))))

有什么建议吗？非常感谢

Answer 1

（time-expr）不返回执行expr所花费的时间，它只是打印它（并返回expr的值）。

您想要(with-out-str (time ...))