Rosetta Code

Sum and product of an array: Difference between revisions

Page Discussion

Sum and product of an array (view source)

Revision as of 16:46, 21 February 2022

4 bytes removed ,  2 years ago
Emacs Lisp: Rework solution
(Add CLU)
(Emacs Lisp: Rework solution)
Line 938:
 
=={{header|Emacs Lisp}}==
{{works with|XEmacs|version 21.5.21}}
 
<lang lisp>(setqlet ((array [1 2 3 4 5]))
(eval (concatenateapply #'list+ '(+)append array nil))
(eval (concatenateapply #'list* '(*)append array nil)))</lang>
 
{{libheader|cl-lib}}
===With a list===
 
<lang lisp>(setq arrayrequire '(1 2 3 4 5)cl-lib)
(apply '+ array)▼
(apply '* array)</lang>▼
 
<lang lisp>(setqlet ((array [1 2 3 4 5]))▼
===With explicit conversion===
▲ (applycl-reduce #'+ array)
▲ (applycl-reduce #'* array))</lang>
 
{{libheader|seq.el}}
▲<lang lisp>(setq array [1 2 3 4 5])
 
(apply '+ (append array nil))
<lang lisp>(require 'seq)
(apply '* (append array nil))</lang>▼
 
(let ((array [1 2 3 4 5]))
(seq-reduce #'+ array 0)
▲ (applyseq-reduce #'* (append array nil1))</lang>
 
=={{header|Erlang}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/47994"