RosettaCodeData/Task/Dot-product/IDL/dot-product.idl
2023-07-01 13:44:08 -04:00

4 lines
80 B
Text

a = [1, 3, -5]
b = [4, -2, -1]
c = a#TRANSPOSE(b)
c = TOTAL(a*b,/PRESERVE_TYPE)