Domain Name Forum

Domain Name Forum (http://www.domainnameforum.org/index.php)
-   Legacy and Other Languages (http://www.domainnameforum.org/forumdisplay.php?f=139)
-   -   Beginning Lisp Help (http://www.domainnameforum.org/showthread.php?t=137803)

webdev 01-17-2011 10:54 AM

Beginning Lisp Help
 
[code] (defun pCount (number) (let (ans 0) (do ((iterator 1 (+ iterator 2))) ((equal iterator number)) (if (equal (0) (rem iterator 3))) (+ ans iterator) (if (equal (0) (rem iterator 5))) (+ ans iterator) (+ ans 0))))


All times are GMT -4. The time now is 03:57 PM.

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.