From ec22292a5ab72dfaadf53a00fed2349bee766bf6 Mon Sep 17 00:00:00 2001
From: sangeet <sangeet.kar@gmail.com>
Date: Fri, 15 May 2020 07:44:45 +0000
Subject: Adding raku solutons

---
 challenge-060/sangeet-kar/raku/ch-1.raku | 11 +++++++++++
 challenge-060/sangeet-kar/raku/ch-2.raku | 11 +++++++++++
 2 files changed, 22 insertions(+)
 create mode 100755 challenge-060/sangeet-kar/raku/ch-1.raku
 create mode 100755 challenge-060/sangeet-kar/raku/ch-2.raku

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);
-- 
cgit