diff options
| -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 |