One million lambda expressions
Posted: Thu Jan 13, 2011 6:04 am
Friends and Fans of newLISP
http://www.newlispfanclub.alh.net/forum/
http://www.newlispfanclub.alh.net/forum/viewtopic.php?f=5&t=3790
Code: Select all
(setf [print.supressed] true [println.supressed] true)
(load "http://instprog.com/Instprog.default-library.lsp")
(setf [print.supressed] nil [println.supressed] nil)
(for(i 1 1000000000 12345679)
(setf lexpr (lam i "xyz"))
(println "\n" i ". " lexpr "\n")
(reduce^ lexpr 33 true)
(println)
(---))
(exit)