RosettaCodeData/Task/Dot-product/BASIC/dot-product-2.basic
2018-06-22 20:57:24 +00:00

7 lines
149 B
Text

DIM vec1(2), vec2(2), dot(0)
vec1() = 1, 3, -5
vec2() = 4, -2, -1
dot() = vec1() . vec2()
PRINT "Result is "; dot(0)