From 37a981a061d0a9899d77accc5ff7ddf93d313a57 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 30 Aug 2021 12:11:00 -0600
Subject: initial ch-1.raku

---
 challenge-128/mark-anderson/raku/ch-1.raku | 40 ++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 challenge-128/mark-anderson/raku/ch-1.raku

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;
+}
-- 
cgit 


From 5d0d8804def60294f33cd5c023c822577161ed9b Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 30 Aug 2021 16:44:56 -0600
Subject: ch-1.raku

---
 challenge-128/mark-anderson/raku/ch-1.raku | 26 +++++++++++++++++++++-----
 1 file changed, 21 insertions(+), 5 deletions(-)

diff --git a/challenge-128/mark-anderson/raku/ch-1.raku b/challenge-128/mark-anderson/raku/ch-1.raku
index edc1859f61..7e33cfec7d 100644
--- a/challenge-128/mark-anderson/raku/ch-1.raku
+++ b/challenge-128/mark-anderson/raku/ch-1.raku
@@ -12,6 +12,22 @@ say "Example 2";
                         <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;
@@ -19,18 +35,18 @@ sub max-sub-matrix(+$matrix)
 
     for ^$matrix -> $i
     {
-        for $matrix[$i].join ~~ m:g/00+/ -> $m
+        for $matrix[$i].join ~~ m:g/00+/
         {
-            %h{$i}.push: $m.from..$m.pos-1;
+            %h{$i}.push: .from .. .pos-1;
         }
     }
 
-    for (^$matrix).combinations(2) -> $range 
+    for (^$matrix).combinations: 2 -> ($head, $tail) 
     {
-        for [X] %h{$range.head..$range.tail} -> @rows
+        for [X] %h{$head .. $tail} -> @rows
         {
             my $cols = +([(&)] @rows);
-            my $rows = $range.tail - $range.head + 1;
+            my $rows = $tail - $head + 1;
             my $area = $rows * $cols;
             %results{"$rows x $cols"} = $area;
         }
-- 
cgit