RosettaCodeData/Task/Dot-product/BBC-BASIC/dot-product.basic

8 lines
149 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
DIM vec1(2), vec2(2), dot(0)
vec1() = 1, 3, -5
vec2() = 4, -2, -1
dot() = vec1() . vec2()
PRINT "Result is "; dot(0)