Merge pull request #5522 from ccntrq/challenge-145

Add solution for challenge 145 task 1

1 files changed, 30 insertions, 0 deletions

diff --git a/challenge-145/alexander-pankoff/perl/ch-1.pl b/challenge-145/alexander-pankoff/perl/ch-1.pl
new file mode 100644
index 0000000000..cdb049522e
--- /dev/null
+++ b/challenge-145/alexander-pankoff/perl/ch-1.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature qw'say signatures';
+no warnings qw'experimental::signatures';
+
+use Data::Dumper;
+use List::Util qw(sum0 min);
+
+run() unless caller();
+
+sub run() {
+    my @a = ( 1, 2, 3 );
+    my @b = ( 4, 5, 6 );
+
+    my $dot_product = dot_product( \@a, \@b );
+
+    say $dot_product;
+
+}
+
+sub dot_product ( $a, $b ) {
+    sum0( zip_with( sub ( $a, $b ) { $a * $b }, $a, $b ) );
+
+}
+
+sub zip_with ( $op, $as, $bs ) {
+    map { $op->($as->[$_], $bs->[$_] ) } 0 .. min( $#{$as}, $#{$bs} );
+}
+