Now with random maps

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-126/simon-proctor/raku/ch-2.raku b/challenge-126/simon-proctor/raku/ch-2.raku
index 025f530b0d..55130be0f9 100644
--- a/challenge-126/simon-proctor/raku/ch-2.raku
+++ b/challenge-126/simon-proctor/raku/ch-2.raku
@@ -35,6 +35,18 @@ multi sub MAIN("example") {
     find-numbers( $example ).say;
 }
 
+subset PInt of Int where * > 0;
+subset Density of Int where 1 <= * <= 50;
+
+#| Given a width, height and mine density (1-50%) makes a map then prints the numbers
+multi sub MAIN( PInt $width, PInt $height, Density $density ) {
+    my @opts = ( |("x" xx $density), |("*" xx (100-$density)) );
+    my $grid = (^$height).map( { @opts.roll($width).join( " " ) } ).join("\n");
+    $grid.say;
+    ("-" xx $width).join("-").say;
+    find-numbers( $grid ).say;
+}
+
 sub parse-mines( Str $input ) {
     return $input.lines.map( { $_.comb(/\S/).Array } ).Array;
 }