Как напечатать функцию истекшего времени на JTextArea

Question

У меня есть JTextArea с именем 'output-text', и я хотел бы добавить время, затраченное на выполнение функции 'Transfer-all', но оно не работает

 (defn transfer-all []
    (doseq [i my-map]
      (transfer i account-destination money)
      )
  )
    ...

  (.append output-text (str (time (transfer-all))))

Есть предложения?Большое спасибо

Answer 1

(время expr) не возвращает время, необходимое для выполнения выражения, оно просто печатает его (и возвращает значение expr).

Вы хотите (with-out-str (time ...))