How to translate this Common LISP code in newLisp?

[ale870]

Hello,

I was reading an article on an italian magazine, and I found the following code:

Code: Select all

(defun foo (n)
   (lambda (i) (incf n i)))

Well, this is an accumulator, and it returns another function that takes another number "i" and return "n" increased by "i".

Can you help me?

Thank you!

[ale870]

Maybe can I use "curry" function? Is this good way to follow?

[Lutz]

newLISP uses namespaces instead of closures in Common Lisp

Code: Select all

> (define (acc:acc i) (inc acc:value i))
(lambda (i) (inc acc:value i))

> (acc 1)
1
> (acc 3)
4
> (acc 6)
10
> 

see also: http://www.newlisp.org/downloads/newlis ... unc_memory

[ale870]

Thank you Lutz, I forgot that article!

I noticed you no more include "if" statement. I think using "if" is more clear, but the example you sent me before is better for standard Lisp comparison (closures).
Maybe you could include it in the official documentation.
I think even a small article in the official PDF document about closures could be useful too...

Thank you!

[Lutz]

http://www.newlisp.org/index.cgi?Closures

also referenced from here:

http://www.newlisp.org/index.cgi?page=D ... ther_LISPs