Product of Array: Difference between revisions
Content deleted Content added
→[[LISP]]: rename to Lisp; split out Common Lisp |
No edit summary |
||
Line 92:
array = {1, 2, 3, 4, 5}
Start = foldl (*) 1 [x \\ x <-: array]
==[[Common Lisp]]==
[[Category:Common Lisp]]
'''Interpreter:''' CLisp (ANSI Common Lisp)
(defparameter data #1A(1 2 3 4 5))
(reduce #'* data)
==[[D]]==
| |||