如何在JTextArea上打印Clojure time elapsed函数

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 ...))