Merge pull request #3837 from pjdurai/week-107

Week107 Problem 1

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-107/pjdurai/raku/ch-1.raku b/challenge-107/pjdurai/raku/ch-1.raku
new file mode 100644
index 0000000000..0b36677e13
--- /dev/null
+++ b/challenge-107/pjdurai/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+sub is-self-descriptive($num){
+    my @l = $num.Str.comb;
+    for @l.kv -> $i, $d {
+        my $occurances = @l.grep(/$i/).elems;
+        return False if $occurances != $d;
+    }
+    return True;
+}
+
+sub MAIN() {
+    my @sd-list = lazy gather for (^Inf) {
+        take $_ if is-self-descriptive($_);
+    }
+    say @sd-list[^3].join(",");
+}