IPv4 address generator

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-061/simon-proctor/raku/ch-2.raku b/challenge-061/simon-proctor/raku/ch-2.raku
new file mode 100644
index 0000000000..a6ff38cdba
--- /dev/null
+++ b/challenge-061/simon-proctor/raku/ch-2.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Print all valid IPv4 addresses from the given string
+#| Will output nothing if no valid IPv4 address can be made from the given string
+sub MAIN(
+    Str $possible where * ~~ /^ <[0..9]> ** 4..12 $/ #= String of numbers to make IPv4 addresses from (between 4 and 12 characters)
+){
+    for $possible ~~ m:ex/^ ( <[0..9]> ** 1..3 ) ** 4 $/ -> $match {
+        my @vals = $match[0].map(*.Str);
+        next unless all( @vals.map( { $_ ~~ $_.Int.Str && 0 <= $_ <= 255 } ) );
+        say @vals.join('.');
+    }
+}