Dot product: Difference between revisions

m (Emacs Lisp: Remove trailing newline)
Line 1,062:
 
IO.puts Vector.dot_product([1,3,-5],[4,-2,-1])</lang>
 
{{out}}
<pre>
3
</pre>
 
=={{header|Elm}}==
{{trans|Elm}}
<lang Elm>dotp: List number -> List number -> Maybe number
dotp a b =
if List.length a /= List.length b then
Nothing
else
Just (List.sum <| List.map2 (*) a b)
 
dotp [1,3,-5] [4,-2,-1])</lang>
 
{{out}}
1

edit