initial ch-1.raku

1 files changed, 40 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..edc1859f61
--- /dev/null
+++ b/challenge-128/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,40 @@
+#!/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>);
+
+sub max-sub-matrix(+$matrix)
+{
+    my %h;
+    my %results;
+
+    for ^$matrix -> $i
+    {
+        for $matrix[$i].join ~~ m:g/00+/ -> $m
+        {
+            %h{$i}.push: $m.from..$m.pos-1;
+        }
+    }
+
+    for (^$matrix).combinations(2) -> $range 
+    {
+        for [X] %h{$range.head..$range.tail} -> @rows
+        {
+            my $cols = +([(&)] @rows);
+            my $rows = $range.tail - $range.head + 1;
+            my $area = $rows * $cols;
+            %results{"$rows x $cols"} = $area;
+        }
+    }
+
+    %results.maxpairs;
+}