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

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