RosettaCodeData/Task/Dot-product/Bracmat/dot-product.bracmat

8 lines
125 B
Plaintext

( dot
= a A z Z
. !arg:(%?a ?z.%?A ?Z)
& !a*!A+dot$(!z.!Z)
| 0
)
& out$(dot$(1 3 -5.4 -2 -1));