diff options
| author | mohammad khalid anwar <khalidanwar123@yahoo.com> | 2022-01-03 04:34:01 +0530 |
|---|---|---|
| committer | mohammad khalid anwar <khalidanwar123@yahoo.com> | 2022-01-03 04:34:01 +0530 |
| commit | 8983e2a4454b6bd40f6fe00dbeff0b4c6b8365ad (patch) | |
| tree | 8f40836b43981ed7a4f00bfbbf13ec6d075e64bf /challenge-145 | |
| parent | 4db5981d53e5073acf1ac84301dd23938c13bfec (diff) | |
| download | perlweeklychallenge-club-8983e2a4454b6bd40f6fe00dbeff0b4c6b8365ad.tar.gz perlweeklychallenge-club-8983e2a4454b6bd40f6fe00dbeff0b4c6b8365ad.tar.bz2 perlweeklychallenge-club-8983e2a4454b6bd40f6fe00dbeff0b4c6b8365ad.zip | |
dot product perl code from khalid anwar
Diffstat (limited to 'challenge-145')
| -rw-r--r-- | challenge-145/khalid/perl/ch-1.pl | 13 |
1 files changed, 13 insertions, 0 deletions
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 |