diff options
| author | juliodcs <julio.dcs@gmail.com> | 2020-11-23 19:51:02 +0100 |
|---|---|---|
| committer | juliodcs <julio.dcs@gmail.com> | 2020-11-23 19:51:02 +0100 |
| commit | 510dffb1e2e9e6607c41944f1ee9564f146b2829 (patch) | |
| tree | 465ed6c8221ced47fa51e4d423cc23438e5916f8 | |
| parent | a1fa59df23658bdb0402691bb54d611ede4580a8 (diff) | |
| download | perlweeklychallenge-club-510dffb1e2e9e6607c41944f1ee9564f146b2829.tar.gz perlweeklychallenge-club-510dffb1e2e9e6607c41944f1ee9564f146b2829.tar.bz2 perlweeklychallenge-club-510dffb1e2e9e6607c41944f1ee9564f146b2829.zip | |
Minor tweak
| -rw-r--r-- | challenge-087/juliodcs/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-087/juliodcs/raku/ch-2.raku b/challenge-087/juliodcs/raku/ch-2.raku index 04e9390855..86e9f9f6cb 100644 --- a/challenge-087/juliodcs/raku/ch-2.raku +++ b/challenge-087/juliodcs/raku/ch-2.raku @@ -16,7 +16,7 @@ sub largest-rectangle-v1($matrix) { my $max-offset = $matrix.split(/\s+/).head.chars.pred; for 0 .. $max-offset -> $offset { my $ones = ''; - for $matrix ~~ m:g/^^ \d**{$offset} (1+) {$ones=$0} (\d*\s+) <?before \d**{$offset} $ones> / { + for $matrix ~~ m:g/^^ \d**{$offset} (1+) {$ones=$0} \d*\s+ <?before \d**{$offset} $ones> / { $max = $_[0].chars if $max < $_[0].chars } } |