RosettaCodeData/Task/Dot-product/PicoLisp/dot-product.l
2023-07-01 13:44:08 -04:00

4 lines
71 B
Text

(de dotProduct (A B)
(sum * A B) )
(dotProduct (1 3 -5) (4 -2 -1))