Merge pull request #5440 from dasJake/145

145 add solution for ch-1.pl

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-145/jake/perl/ch-1.pl b/challenge-145/jake/perl/ch-1.pl
new file mode 100755
index 0000000000..b5924a812e
--- /dev/null
+++ b/challenge-145/jake/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+use feature 'say';
+use List::Util qw(sum);
+use List::MoreUtils qw(pairwise);
+
+my @list1 = (1, 2, 3);
+my @list2 = (4, 5, 6);
+
+say sum ( pairwise { $a * $b } @list1, @list2 );
\ No newline at end of file