diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-11-23 19:41:55 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-11-23 19:41:55 +0000 |
| commit | bbd83fc3b8c2b176c0146ee68c77dac04d0f75cf (patch) | |
| tree | 2c0db5be44e09c477759b4ed010f0ed39730a866 | |
| parent | 709e938d84348f3b529cdd5d4c01e7a4fab70c6a (diff) | |
| parent | cad082b1df8e5db07390bcad66f2e887460b02bf (diff) | |
| download | perlweeklychallenge-club-bbd83fc3b8c2b176c0146ee68c77dac04d0f75cf.tar.gz perlweeklychallenge-club-bbd83fc3b8c2b176c0146ee68c77dac04d0f75cf.tar.bz2 perlweeklychallenge-club-bbd83fc3b8c2b176c0146ee68c77dac04d0f75cf.zip | |
Merge pull request #2832 from ash/master
ash 088-1 in Raku
| -rw-r--r-- | challenge-088/ash/raku/ch-1.raku | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-088/ash/raku/ch-1.raku b/challenge-088/ash/raku/ch-1.raku new file mode 100644 index 0000000000..d070ad47a4 --- /dev/null +++ b/challenge-088/ash/raku/ch-1.raku @@ -0,0 +1,13 @@ +#!/usr/bin/env raku +# +# Task 1 from +# https://perlweeklychallenge.org/blog/perl-weekly-challenge-088/ + +my @n = 5, 2, 1, 4, 3; + +# Output: 24, 60, 120, 30, 40 + +my $prod = [*] @n; +my @r = @n.map: $prod / *; + +put @r.join(', '); |