Rosetta Code

Sum of a series: Difference between revisions

Page Discussion

Sum of a series (view source)

Revision as of 19:43, 21 February 2022

29 bytes removed ,  2 years ago
Emacs Lisp: Improve solution
(add BQN)
(Emacs Lisp: Improve solution)
Line 917:
 
=={{header|Emacs Lisp}}==
<lang Emacs Lisp>(defun series (n)
(ifwhen (< 0= n 0)▼
(defun serie (n)
(user-error "n must be positive"))
▲ (if (< 0 n)
(apply #'+ (mapcar (lambda (k) (/ 1.0 (* k k) )) (number-sequence 1 n) )))
(error "input error") ))
 
(insert (format "%.10f" (serieseries 1000) )) ;=> "1.6439345667"</lang>
</lang>
<b>Output:</b>
<pre>
1.6439345667
</pre>
 
=={{header|Erlang}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/59911"