5 lines
102 B
Text
5 lines
102 B
Text
to dotprod :a :b
|
|
output apply "sum (map "product :a :b)
|
|
end
|
|
|
|
show dotprod [1 3 -5] [4 -2 -1] ; 3
|