Merge pull request #4821 from andemark/branch-for-challenge-128

initial ch-1.raku

1 files changed, 56 insertions, 0 deletions

diff --git a/challenge-128/mark-anderson/raku/ch-1.raku b/challenge-128/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..7e33cfec7d
--- /dev/null
+++ b/challenge-128/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,56 @@
+#!/usr/bin/env raku
+
+say "Example 1";
+.say for max-sub-matrix(<1 0 0 0 1 0>,
+                        <1 1 0 0 0 1>,
+                        <1 0 0 0 0 0>);
+
+say " ";
+
+say "Example 2";
+.say for max-sub-matrix(<0 0 1 1>,
+                        <0 0 0 1>,
+                        <0 0 1 0>);
+
+say " ";
+
+say "Example 3";
+.say for max-sub-matrix(<1 0 1 0 1 0 1 0 1 0 0 1>,
+                        <1 0 1 0 1 0 1 0 1 0 0 1>,
+                        <1 0 0 0 1 0 0 0 1 1 0 0>,
+                        <1 0 0 0 1 0 0 0 1 1 0 0>,
+                        <1 0 0 0 1 0 1 0 1 0 1 1>,
+                        <1 0 0 0 1 0 0 0 1 0 0 1>,
+                        <1 0 1 0 1 0 1 0 1 0 0 1>,
+                        <1 0 1 0 1 0 1 0 1 0 0 0>,
+                        <1 0 1 0 1 0 1 0 1 0 0 1>,
+                        <1 0 1 0 1 0 1 0 1 0 0 1>,
+                        <1 0 1 0 1 0 1 0 1 0 0 0>,
+                        <1 0 0 0 0 0 0 0 1 0 1 0>);
+
+sub max-sub-matrix(+$matrix)
+{
+    my %h;
+    my %results;
+
+    for ^$matrix -> $i
+    {
+        for $matrix[$i].join ~~ m:g/00+/
+        {
+            %h{$i}.push: .from .. .pos-1;
+        }
+    }
+
+    for (^$matrix).combinations: 2 -> ($head, $tail) 
+    {
+        for [X] %h{$head .. $tail} -> @rows
+        {
+            my $cols = +([(&)] @rows);
+            my $rows = $tail - $head + 1;
+            my $area = $rows * $cols;
+            %results{"$rows x $cols"} = $area;
+        }
+    }
+
+    %results.maxpairs;
+}