diff options
| -rw-r--r-- | challenge-128/mark-anderson/raku/ch-1.raku | 40 |
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; +} |