Rosetta Code

Sum multiples of 3 and 5: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Undo revision 296828 by Rosettabrowser (talk)
Blek (talk | contribs)
678 edits
Fixed Emacs Lisp
Line 1,018:
 
=={{header|Emacs Lisp}}==
{{incorrect|Emacs Lisp|output should be 2318}}
===version 1===
<lang Emacs Lisp>
(defun sum-3-5 (lsn)
(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 (lsn)
(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 1000) ))
</lang>
<b>Output:</b>
<pre>
2318
2418
233168
</pre>
 
Retrieved from "https://rosettacode.org/wiki/Sum_multiples_of_3_and_5"