I'd like to use memoize for a function that uses core.async <! e.g
*(defn foo [x] (go (<! (timeout 2000)) (* 2 x)))*
(In a real-life, it could be useful in order to cache the results of server
calls)
I was able to achieve that by writing a core.async version of memoize
(almost the same code as memoize):
*(defn memoize-async [f] (let [mem (atom {})] (fn [& args] (go
(if-let [e (find @mem args)] (val e) (let [ret (<!
(apply f args))]; this line differs from memoize [ret (apply f args)]
(swap! mem assoc args ret) ret))))))*
I am wondering if there are simpler ways to achieve the same result.
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
