Product of Array: Difference between revisions
Content added Content deleted
No edit summary |
(→[[LISP]]: rename to Lisp; split out Common Lisp) |
||
Line 157: | Line 157: | ||
alert( product ); |
alert( product ); |
||
==[[ |
==[[Lisp]]== |
||
[[Category: |
[[Category:Lisp]] |
||
'''Interpreter:''' XEmacs (beta) version 21.5.21 of February 2005 (+CVS-20050720) |
'''Interpreter:''' XEmacs (beta) version 21.5.21 of February 2005 (+CVS-20050720) |
||
Line 164: | Line 164: | ||
(setq array [1 2 3 4 5]) |
(setq array [1 2 3 4 5]) |
||
(eval (concatenate 'list '(*) array)) |
(eval (concatenate 'list '(*) array)) |
||
'''Interpreter:''' CLisp (ANSI Common Lisp) |
|||
(defparameter data #1A(1 2 3 4 5)) |
|||
(reduce #'* data) |
|||
==[[MAXScript]]== |
==[[MAXScript]]== |