From 8983e2a4454b6bd40f6fe00dbeff0b4c6b8365ad Mon Sep 17 00:00:00 2001
From: mohammad khalid anwar <khalidanwar123@yahoo.com>
Date: Mon, 3 Jan 2022 04:34:01 +0530
Subject: dot product perl code from khalid anwar

---
 challenge-145/khalid/perl/ch-1.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 challenge-145/khalid/perl/ch-1.pl

diff --git a/challenge-145/khalid/perl/ch-1.pl b/challenge-145/khalid/perl/ch-1.pl
new file mode 100644
index 0000000000..4ce825ed60
--- /dev/null
+++ b/challenge-145/khalid/perl/ch-1.pl
@@ -0,0 +1,13 @@
+sub dotprod
+{
+        my($vec_a, $vec_b) = @_;
+        die "Vector size must be same \n" unless @$vec_a == @$vec_b;
+        my $sum = 0;
+        $sum += $vec_a->[$_] * $vec_b->[$_] for 0..$#$vec_a;
+        return $sum;
+}
+ 
+my @vec_a = (1,2,3);
+my @vec_b = (4,5,6);
+ 
+print dotprod(\@vec_a,\@vec_b), "\n";
\ No newline at end of file
-- 
cgit