Rosetta Code

Sum of squares: Difference between revisions

Page Discussion

Sum of squares (view source)

Revision as of 19:55, 21 February 2022

38 bytes removed ,  2 years ago
Emacs Lisp: Simplify solution
(Sum of squares in various BASIC dialents)
(Emacs Lisp: Simplify solution)
Line 1,086:
 
=={{header|Emacs Lisp}}==
<lang Emacs Lisp>(defun sum-of-squares (numbers)
(apply #'+ (mapcar (lambda (k) (* k k) ) lsnumbers) ))▼
(defun sum-square (ls)
▲ (apply '+ (mapcar (lambda (k) (* k k) ) ls) ))
 
(insert (format "%d"(sum-squareof-squares (number-sequence 0 3)) )));=> 14</lang>
</lang>
<b>Output:</b>
<pre>
14
</pre>
 
=={{header|Erlang}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/49973"