diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-12-28 13:29:17 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-12-28 13:29:17 +0000 |
| commit | 9fd23b4f01292d2a8103b127f6a52640b34572f2 (patch) | |
| tree | 5a36b9ebf7f9f82a3d6ac240876c5b9174592551 /challenge-145 | |
| parent | 1821e7f0e63c07a265d07e8059be51373e633d9d (diff) | |
| download | perlweeklychallenge-club-9fd23b4f01292d2a8103b127f6a52640b34572f2.tar.gz perlweeklychallenge-club-9fd23b4f01292d2a8103b127f6a52640b34572f2.tar.bz2 perlweeklychallenge-club-9fd23b4f01292d2a8103b127f6a52640b34572f2.zip | |
- Added solutions by Laurent Rosenfeld.
Diffstat (limited to 'challenge-145')
| -rw-r--r-- | challenge-145/laurent-rosenfeld/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-145/laurent-rosenfeld/perl/ch-1.pl | 10 | ||||
| -rw-r--r-- | challenge-145/laurent-rosenfeld/raku/ch-1.raku | 6 |
3 files changed, 17 insertions, 0 deletions
diff --git a/challenge-145/laurent-rosenfeld/blog.txt b/challenge-145/laurent-rosenfeld/blog.txt new file mode 100644 index 0000000000..cea975bcad --- /dev/null +++ b/challenge-145/laurent-rosenfeld/blog.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/laurent_r/2021/12/perl-weekly-challenge-145-dot-product.html diff --git a/challenge-145/laurent-rosenfeld/perl/ch-1.pl b/challenge-145/laurent-rosenfeld/perl/ch-1.pl new file mode 100644 index 0000000000..169cf8df7a --- /dev/null +++ b/challenge-145/laurent-rosenfeld/perl/ch-1.pl @@ -0,0 +1,10 @@ +use strict; +use warnings; +use feature "say"; + +my @a = (1, 2, 3); +my @b = (4, 5, 6); + +my $result = 0; +$result += $_ for map { $a[$_] * $b[$_] } 0..$#a; +say $result; diff --git a/challenge-145/laurent-rosenfeld/raku/ch-1.raku b/challenge-145/laurent-rosenfeld/raku/ch-1.raku new file mode 100644 index 0000000000..412f3a36b0 --- /dev/null +++ b/challenge-145/laurent-rosenfeld/raku/ch-1.raku @@ -0,0 +1,6 @@ +use v6; + +my @a = 1, 2, 3; +my @b = 4, 5, 6; + +say sum @a Z* @b; # Could also be: say [+] @a Z* @b; |