7 lines
183 B
Text
7 lines
183 B
Text
declare
|
|
fun {DotProduct Xs Ys}
|
|
{Length Xs} = {Length Ys} %% assert
|
|
{List.foldL {List.zip Xs Ys Number.'*'} Number.'+' 0}
|
|
end
|
|
in
|
|
{Show {DotProduct [1 3 ~5] [4 ~2 ~1]}}
|