5 lines
114 B
Forth
5 lines
114 B
Forth
program test_dot_product
|
|
|
|
write (*, '(i0)') dot_product ([1, 3, -5], [4, -2, -1])
|
|
|
|
end program test_dot_product
|