diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-01-03 00:21:20 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-01-03 00:21:20 +0000 |
| commit | c8313bc90a1b09e47c0398b27afccf2199c61eb3 (patch) | |
| tree | e340ef1d5960fa2031480e574cf5ba66d3bcafcf /challenge-145 | |
| parent | b3bd78828c9c0a169173683255a1bf92b6f3c0e8 (diff) | |
| download | perlweeklychallenge-club-c8313bc90a1b09e47c0398b27afccf2199c61eb3.tar.gz perlweeklychallenge-club-c8313bc90a1b09e47c0398b27afccf2199c61eb3.tar.bz2 perlweeklychallenge-club-c8313bc90a1b09e47c0398b27afccf2199c61eb3.zip | |
- Added solution by Mark Senn.
Diffstat (limited to 'challenge-145')
| -rw-r--r-- | challenge-145/mark-senn/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-145/mark-senn/raku/ch-1.raku | 7 | ||||
| -rw-r--r-- | challenge-145/mark-senn/wolfram/ch-1.wl | 5 |
3 files changed, 13 insertions, 0 deletions
diff --git a/challenge-145/mark-senn/blog.txt b/challenge-145/mark-senn/blog.txt new file mode 100644 index 0000000000..20b9295a33 --- /dev/null +++ b/challenge-145/mark-senn/blog.txt @@ -0,0 +1 @@ +https://engineering.purdue.edu/~mark/twc-145-1.pdf diff --git a/challenge-145/mark-senn/raku/ch-1.raku b/challenge-145/mark-senn/raku/ch-1.raku new file mode 100644 index 0000000000..a20847ee78 --- /dev/null +++ b/challenge-145/mark-senn/raku/ch-1.raku @@ -0,0 +1,7 @@ +my @a = (1, 2, 3); +my @b = (4, 5, 6); + +# Compute dot product of @a and @b and print it. +# "@a <<*>> @b" does pair-wise multiplication of elements in @a and @b. +# For example, "[+] (4, 10, 18)" does 4 + 10 + 18. +say [+] (@a <<*>> @b); diff --git a/challenge-145/mark-senn/wolfram/ch-1.wl b/challenge-145/mark-senn/wolfram/ch-1.wl new file mode 100644 index 0000000000..6f7908d66b --- /dev/null +++ b/challenge-145/mark-senn/wolfram/ch-1.wl @@ -0,0 +1,5 @@ +a = {1, 2, 3}; +b = {4, 5, 6}; + +# Compute dot product of @a and @b and print it. +Print[a . b]; |