diff options
| author | Andrew Shitov <andy@shitov.ru> | 2020-11-23 18:18:01 +0100 |
|---|---|---|
| committer | Andrew Shitov <andy@shitov.ru> | 2020-11-23 18:18:01 +0100 |
| commit | cad082b1df8e5db07390bcad66f2e887460b02bf (patch) | |
| tree | 5d9af3e0131f3cd24208bfa5a9f467ba65acb712 /challenge-088/ash | |
| parent | cea83925f87e4bbe52ab8c1ce9a2e1b0f2d86611 (diff) | |
| download | perlweeklychallenge-club-cad082b1df8e5db07390bcad66f2e887460b02bf.tar.gz perlweeklychallenge-club-cad082b1df8e5db07390bcad66f2e887460b02bf.tar.bz2 perlweeklychallenge-club-cad082b1df8e5db07390bcad66f2e887460b02bf.zip | |
ash 088-1
Diffstat (limited to 'challenge-088/ash')
| -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(', '); |