p1.lisp


1
2
3
4
5
6
7
8
9
10

(setq sum 0)
(loop for i from 0 to 1001 do
      (if (eq (mod i 3) 0) 
	(setq sum (+ sum i))
      	(if (eq (mod i 5) 0) 
	  (setq sum (+ sum i))
	)
      )
)
(print sum)