Contents

Related

Project Euler in Elisp

Problem 1

If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23. Find the sum of all the multiples of 3 or 5 below 1000.

          (require 'cl)

          (apply '+ (remove-if-not
                     '(lambda (x) (or (zerop (% x 3)) (zerop (% x 5))))
                     (loop for i from 1 to 999 collect i)))

233168