Sum multiples of 3 and 5: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,018: / Line 1,018: @@
 =={{header|Emacs Lisp}}==
-{{incorrect|Emacs Lisp|output should be 2318}}
 ===version 1===
 <lang Emacs Lisp>
-(defun sum-3-5 (ls)
+(defun sum-3-5 (n)
   (apply '+ (mapcar
 	     '(lambda (x) (if (or (= 0 (% x 3) ) (= 0 (% x 5) ))
 			      x 0) )
+	     (number-sequence 1 (- n 1)) )))
-			ls) ))
 </lang>
 ===version 2===
 <lang Emacs Lisp>
-(defun sum-3-5 (ls)
+(defun sum-3-5 (n)
   (apply '+ (seq-filter
 	     '(lambda (x) (or (= 0 (% x 3) ) (= 0 (% x 5) )))
-	     ls) ))
+	     (number-sequence 1 (- n 1))) ))
 </lang>
 <b>Eval:</b>
 <lang Emacs Lisp>
-(insert (format "%d" (sum-3-5 (number-sequence 1 100) )))
+(insert (format "%d" (sum-3-5 100) ))
+(insert (format "%d" (sum-3-5 1000) ))
 </lang>
 <b>Output:</b>
 <pre>
 </pre>