Re: general lazy list facility for Emacs Lisp?

[Tassilo Horn <tassilo@member.fsf.org>]

Tassilo Horn <tassilo@member.fsf.org> writes:

> I think for "real" memoization, you need clojures.  However, I think
> you can simulate memoization with a macro like that (tested only very
> briefly).
>
> (defmacro memoize (name fun)
>   (let ((map-name (gensym "memo-map"))
> 	(args-name (gensym))
> 	(val-name (gensym)))
>     `(progn
>        (defvar ,map-name (make-hash-table :test 'equal))
>        (defun ,name (&rest ,args-name)
> 	 (let ((,val-name (gethash ,args-name ,map-name)))
> 	   (if ,val-name
> 	       ,val-name
> 	     (puthash ,args-name (apply (quote ,fun) ,args-name)
> 		      ,map-name)))))))

Just a short remark on what I've had in mind with "real" memoization: If
elisp had closures (not clojures ;-)), then one could write memoize as
function, just like the variant in the clojure source code below:

--8<---------------cut here---------------start------------->8---
(defn memoize
  [f]
  (let [mem (atom {})]
    (fn [& args]
      (if-let [e (find @mem args)]
        (val e)
        (let [ret (apply f args)]
          (swap! mem assoc args ret)
          ret)))))
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo