RosettaCodeData/Task/Dot-product/IDL/dot-product.idl
Ingy döt Net 776bba907c Sync
2013-10-27 22:24:23 +00:00

4 lines
80 B
Text

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