Merge pull request #1287 from xkr47/pwc048

xkr47 / 048

3 files changed, 37 insertions, 0 deletions

diff --git a/challenge-048/xkr47/README b/challenge-048/xkr47/README
new file mode 100644
index 0000000000..47ff27a9d5
--- /dev/null
+++ b/challenge-048/xkr47/README
@@ -0,0 +1 @@
+Solution by Jonas Berlin.
diff --git a/challenge-048/xkr47/raku/ch-1.p6 b/challenge-048/xkr47/raku/ch-1.p6
new file mode 100755
index 0000000000..e2346a6566
--- /dev/null
+++ b/challenge-048/xkr47/raku/ch-1.p6
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl6
+
+class Pwc048_1 is Array {
+    method iterator {
+        class :: does Iterator {
+            has $.index is rw = 0;
+            has $.array is required;
+            method pull-one {
+                my $val = $.array.AT-POS($.index++);
+                $.index %= $.array.elems;
+                $.array.splice($.index, 1);
+                if ($.array.elems) {
+                    $.index %= $.array.elems;
+                    $val;
+                } else {
+                    IterationEnd;
+                }
+            }
+        }.new(array => self)
+    }
+}
+
+my $arr = Pwc048_1.new();
+$arr.append(1...50);
+say "Survivors, in order: ", $arr;
diff --git a/challenge-048/xkr47/raku/ch-2.p6 b/challenge-048/xkr47/raku/ch-2.p6
new file mode 100755
index 0000000000..c82f25441c
--- /dev/null
+++ b/challenge-048/xkr47/raku/ch-2.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+
+(2000...2999)
+        .map({
+            try {
+                    Date.new(($_, $_.flip.match(/^(..)(..)/).map(*.Str)).flat.join("-"))
+            }
+        })
+        .grep(*.defined)
+        .map({ sprintf "%02d%02d%04d", .month, .day, .year })
+        .say