diff options
| author | Andrew Shitov <andy@shitov.ru> | 2021-11-22 10:20:16 +0100 |
|---|---|---|
| committer | Andrew Shitov <andy@shitov.ru> | 2021-11-22 10:20:16 +0100 |
| commit | 864b9f9491fddbccb4ca67d7da37c0a3c7f7a6bb (patch) | |
| tree | b24e2a46cee4aa7b85599c42bcc63c52fad691a1 | |
| parent | e57e8ba97ca974deeadbd7137390e99a38d8304d (diff) | |
| download | perlweeklychallenge-club-864b9f9491fddbccb4ca67d7da37c0a3c7f7a6bb.tar.gz perlweeklychallenge-club-864b9f9491fddbccb4ca67d7da37c0a3c7f7a6bb.tar.bz2 perlweeklychallenge-club-864b9f9491fddbccb4ca67d7da37c0a3c7f7a6bb.zip | |
ash 140, task 2 in Raku
| -rw-r--r-- | challenge-140/ash/raku/ch-2.raku | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/challenge-140/ash/raku/ch-2.raku b/challenge-140/ash/raku/ch-2.raku new file mode 100644 index 0000000000..7804aff7de --- /dev/null +++ b/challenge-140/ash/raku/ch-2.raku @@ -0,0 +1,5 @@ +# This is definitely is not efficient, but it displays the power of Raku syntax. + +sub MAIN($a, $b, $n) { + say (sort 1..$a X* 1..$b)[$n - 1] +} |