2012-03-05 38 views
1

我有一个名为“输出文本”和我想追加时间的JTextArea经过执行功能“转移所有”,但它不工作如何打印Clojure的时间过去了功能上的JTextArea

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

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

有什么建议吗?很多谢谢

回答

3

(time expr)不会返回执行expr所花的时间,它只是打印它(并返回expr的值)。

你想(with-out-str (time ...))

+0

非常感谢我的代码现在是:(.append输出文本(带出-STR(时间(转让帐户一个帐户B 100))))......和作品。但是我有'transfer-all'函数的问题(和以前一样):我想为我的地图中的每个元素执行一个名为'transfer(from,to,amount)'的操作...你能检查什么是错误?再次感谢 – nuvio 2012-03-05 13:36:28

+2

@nuvio请开始一个新的问题,而不是捎带在这一个 – 2012-03-05 13:52:17