diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-03 13:46:54 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-03 13:46:54 +0100 |
| commit | 2b19eb344aeda716e5aafb5f7186cce45f554c14 (patch) | |
| tree | ff4b0a8601df6e1bb4bc3aea51a36797a07fce0e | |
| parent | 348b3659c0568020f74f932a414e77c87e70ecb7 (diff) | |
| download | perlweeklychallenge-club-2b19eb344aeda716e5aafb5f7186cce45f554c14.tar.gz perlweeklychallenge-club-2b19eb344aeda716e5aafb5f7186cce45f554c14.tar.bz2 perlweeklychallenge-club-2b19eb344aeda716e5aafb5f7186cce45f554c14.zip | |
- Updated solution to work with grid having space or without.
| -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 |