diff options
| -rwxr-xr-x | challenge-076/mohammad-anwar/perl/ch-2.pl | 6 | ||||
| -rw-r--r-- | challenge-076/mohammad-anwar/perl/grid-with-space.txt (renamed from challenge-076/mohammad-anwar/perl/search-grid.txt) | 0 | ||||
| -rw-r--r-- | challenge-076/mohammad-anwar/perl/grid-without-space.txt | 19 |
3 files changed, 21 insertions, 4 deletions
diff --git a/challenge-076/mohammad-anwar/perl/ch-2.pl b/challenge-076/mohammad-anwar/perl/ch-2.pl index 1133a7eddb..ef5ccfa344 100755 --- a/challenge-076/mohammad-anwar/perl/ch-2.pl +++ b/challenge-076/mohammad-anwar/perl/ch-2.pl @@ -144,13 +144,11 @@ sub horizontals { my $matrix = {}; foreach my $line (@$data) { chomp $line; - $line =~ s/\s+/ /g; + $line =~ s/\s+//g; my $l = ""; my @l = (); - foreach my $char (split /\s/,$line) { - $char =~ s/^\s+//g; - $char =~ s/\s+$//g; + foreach my $char (split //,$line) { push @l, $char; $l .= $char; } diff --git a/challenge-076/mohammad-anwar/perl/search-grid.txt b/challenge-076/mohammad-anwar/perl/grid-with-space.txt index 31cf2e0fd8..31cf2e0fd8 100644 --- a/challenge-076/mohammad-anwar/perl/search-grid.txt +++ b/challenge-076/mohammad-anwar/perl/grid-with-space.txt diff --git a/challenge-076/mohammad-anwar/perl/grid-without-space.txt b/challenge-076/mohammad-anwar/perl/grid-without-space.txt new file mode 100644 index 0000000000..b010521de2 --- /dev/null +++ b/challenge-076/mohammad-anwar/perl/grid-without-space.txt @@ -0,0 +1,19 @@ +BIDEMIATSUCCORST +LDEGGIWQHODEEHDP +USEIRUBUTEASLAGU +NGNIZILAICOSCNUD +TGMIDSTSARAREIFG +SRENMDCHASIVEELI +SCSHAEUEBROADMTE +HWOVLPEDDLAIULSS +RYONLASFCSTAOGOT +IGUSSRRUGOVARYOC +NRGPATNANGILAMOO +EIHACEIVIRUSESED +SETSUDTTGARLICNH +HVRMXLWIUMSNSOTB +AEAOFILCHTODCAEU +ZSCDFECAAIIRLNRF +ARIIANYUTOOOUTPF +RSECISNABOSCNERA +DRSMPCUUNELTESIL |