Sum of a series: Difference between revisions

Content added Content deleted

Inline

@@ Line 917: / Line 917: @@
 =={{header|Emacs Lisp}}==
-<lang Emacs Lisp>
+<lang Lisp>(defun series (n)
+  (when (<= 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) ))
+  (apply #'+ (mapcar (lambda (k) (/ 1.0 (* k k))) (number-sequence 1 n))))
-    (error "input error") ))
-(insert (format "%.10f" (serie 1000) ))
+(format "%.10f" (series 1000)) ;=> "1.6439345667"</lang>
-</lang>
-<b>Output:</b>
-<pre>
-.6439345667
-</pre>
 =={{header|Erlang}}==