diff options
| -rwxr-xr-x | challenge-060/sangeet-kar/raku/ch-1.raku | 11 | ||||
| -rwxr-xr-x | challenge-060/sangeet-kar/raku/ch-2.raku | 11 |
2 files changed, 22 insertions, 0 deletions
diff --git a/challenge-060/sangeet-kar/raku/ch-1.raku b/challenge-060/sangeet-kar/raku/ch-1.raku new file mode 100755 index 0000000000..00cce8fc2f --- /dev/null +++ b/challenge-060/sangeet-kar/raku/ch-1.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku + +my @seq = 'A', {++$_} ... *; + +multi sub MAIN(Int :$num) { + say @seq[$num - 1]; +} + +multi sub MAIN(Str :$col) { + say @seq.first($col, :k) + 1; +} diff --git a/challenge-060/sangeet-kar/raku/ch-2.raku b/challenge-060/sangeet-kar/raku/ch-2.raku new file mode 100755 index 0000000000..09678689e3 --- /dev/null +++ b/challenge-060/sangeet-kar/raku/ch-2.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku + +sub find-nums(@L, $X, $Y) { + ([X] @L xx 2) + .map(*.join('')) + .grep({!/^0/ && $_ < $Y}) + .join(", ") + .say; +} + +find-nums(<0 1 2 5>, 2, 21); |
