Me being a bad common lisp beginner


(defun problem-5 (n i)                                   
  (cond                                                   
   ((< i 20) (if (equalp (mod n i) 0)                   
                        (problem-5 n (+ i 1))           
                        ((setq i 1) (problem-5 (+ n 1) i))))
   ((equalp i 20) (print n))))
The error is in the (setq i 1) line, it's an illegal function call but I can't see what I'm doing wrong.


((setq i 1) (problem-5 (+ n 1) i)

You're trying to call the result of (setq i 1) with the result of (problem-5 (+ n 1) i) as argument.

It should be
(progn (setq i 1) (problem-5 (+ n 1) i))

But setting a variable, passing it to a function and forgetting it is nonsensical, you can just do (problem-5 (+ n 1) 1)

What >>2 said, but while the problem is obvious to anyone knowing even basic CL, I would recommend you get a good editor if you haven't already (Emacs/SLIME/Paredit/Redshank+implementation(SBCL would be a fine example, but there are enough other good alternatives)).

5 Name: Anonymous 2011-02-18 20:02