- Added solutions by Donald Hunter.

2 files changed, 20 insertions, 0 deletions

diff --git a/challenge-061/donald-hunter/blog.txt b/challenge-061/donald-hunter/blog.txt
new file mode 100644
index 0000000000..f2a395115e
--- /dev/null
+++ b/challenge-061/donald-hunter/blog.txt
@@ -0,0 +1 @@
+https://donaldh.wtf/2020/05/ipv4-partition/
diff --git a/challenge-061/donald-hunter/raku/ch-2.p6 b/challenge-061/donald-hunter/raku/ch-2.p6
new file mode 100644
index 0000000000..20f8fe00fb
--- /dev/null
+++ b/challenge-061/donald-hunter/raku/ch-2.p6
@@ -0,0 +1,19 @@
+multi find-ips(Str $input where / \d ** 4..12 /) {
+    gather {
+        take .list.flat.join('.')
+        for $input ~~ m:exhaustive
+            / ^ ( <[1..9]> ** 0..2 \d <?{ $/.Int < 256 }> ) ** 4 $ /
+    }
+}
+
+multi find-ips(Str $input) {
+    die "{$input} is not a valid input, it should be 4 to 12 digits.";
+}
+
+sub MAIN(Str $input) {
+    CATCH { default { .say } }
+
+    my @ips = find-ips($input);
+    say "Found {+@ips} potential IP address{+@ips == 1 ?? '' !! 'es'} in {$input}:";
+    say @ips.join("\n").indent(4);
+}