RosettaCodeData/Task/Dot-product/PicoLisp/dot-product.l
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

4 lines
71 B
Text

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