knjname · December 10, 2013 18:01
diff --git a/euler-problem-1.el b/euler-problem-1.el

 (defun dividable (n m)
  (= (mod n m) 0))

 (dividable 6 3)							; => t
 (dividable 6 4)							; => nil

 (defun euler-1 (begin end)
  (loop for i from begin to (1- end)
 		sum (if (or (dividable i 3) (dividable i 5))
 				i
 			  0)))

 (euler-1 0 10)								; => 23

 (euler-1 0 1000)								; => 233168

	(defun dividable (n m)
	(= (mod n m) 0))

	(dividable 6 3) ; => t
	(dividable 6 4) ; => nil

	(defun euler-1 (begin end)
	(loop for i from begin to (1- end)
	sum (if (or (dividable i 3) (dividable i 5))
	i
	0)))

	(euler-1 0 10) ; => 23

	(euler-1 0 1000) ; => 233168
No results found