Revision as of 07:19, 2 December 2021 (view source) Not a robot (talk \| contribs) (Add CLU) ← Older edit		Revision as of 19:50, 7 February 2022 (view source) rosettacode>Wasamasa (Emacs Lisp: Improve solution) Newer edit →
Line 1,069: =={{header\|Emacs Lisp}}== <lang ~~Emacs~~ Lisp>(defun dot-product (v1 v2) (let ((res 0)) ~~(defun dot-product (v1 v2)~~ (~~setq~~dotimes ~~res~~(i (length 0v1)) (~~dotimes~~setq res (i+ (~~length~~* (elt v1 i) (elt v2 i)) res))) res))▼ ~~(setq res (+ (* (elt v1 i) (elt v2 i) ) res) ))~~ ▲ res) ~~(insert (format "%d\n"~~ (dot-product '([1 2 3)] '([1 2 3]) ~~))))~~;=> 14▼ ~~(progn~~ ~~(insert (format "%d\n"~~ (dot-product ['(1 2 3]) ['(1 2 3])) ));=> 14 ▲ (insert (format "%d\n" (dot-product '(1 2 3) '(1 2 3) )))) </lang> ~~<b>Output:</b>~~ ~~<pre>~~ 14 14 ~~</pre>~~ =={{header\|Erlang}}==

Dot product: Difference between revisions

Dot product (view source)