From 2b19eb344aeda716e5aafb5f7186cce45f554c14 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Thu, 3 Sep 2020 13:46:54 +0100 Subject: - Updated solution to work with grid having space or without. --- challenge-076/mohammad-anwar/perl/ch-2.pl | 6 ++---- challenge-076/mohammad-anwar/perl/grid-with-space.txt | 19 +++++++++++++++++++ .../mohammad-anwar/perl/grid-without-space.txt | 19 +++++++++++++++++++ challenge-076/mohammad-anwar/perl/search-grid.txt | 19 ------------------- 4 files changed, 40 insertions(+), 23 deletions(-) create mode 100644 challenge-076/mohammad-anwar/perl/grid-with-space.txt create mode 100644 challenge-076/mohammad-anwar/perl/grid-without-space.txt delete mode 100644 challenge-076/mohammad-anwar/perl/search-grid.txt 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/grid-with-space.txt b/challenge-076/mohammad-anwar/perl/grid-with-space.txt new file mode 100644 index 0000000000..31cf2e0fd8 --- /dev/null +++ b/challenge-076/mohammad-anwar/perl/grid-with-space.txt @@ -0,0 +1,19 @@ +B I D E M I A T S U C C O R S T +L D E G G I W Q H O D E E H D P +U S E I R U B U T E A S L A G U +N G N I Z I L A I C O S C N U D +T G M I D S T S A R A R E I F G +S R E N M D C H A S I V E E L I +S C S H A E U E B R O A D M T E +H W O V L P E D D L A I U L S S +R Y O N L A S F C S T A O G O T +I G U S S R R U G O V A R Y O C +N R G P A T N A N G I L A M O O +E I H A C E I V I R U S E S E D +S E T S U D T T G A R L I C N H +H V R M X L W I U M S N S O T B +A E A O F I L C H T O D C A E U +Z S C D F E C A A I I R L N R F +A R I I A N Y U T O O O U T P F +R S E C I S N A B O S C N E R A +D R S M P C U U N E L T E S I L 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 diff --git a/challenge-076/mohammad-anwar/perl/search-grid.txt b/challenge-076/mohammad-anwar/perl/search-grid.txt deleted file mode 100644 index 31cf2e0fd8..0000000000 --- a/challenge-076/mohammad-anwar/perl/search-grid.txt +++ /dev/null @@ -1,19 +0,0 @@ -B I D E M I A T S U C C O R S T -L D E G G I W Q H O D E E H D P -U S E I R U B U T E A S L A G U -N G N I Z I L A I C O S C N U D -T G M I D S T S A R A R E I F G -S R E N M D C H A S I V E E L I -S C S H A E U E B R O A D M T E -H W O V L P E D D L A I U L S S -R Y O N L A S F C S T A O G O T -I G U S S R R U G O V A R Y O C -N R G P A T N A N G I L A M O O -E I H A C E I V I R U S E S E D -S E T S U D T T G A R L I C N H -H V R M X L W I U M S N S O T B -A E A O F I L C H T O D C A E U -Z S C D F E C A A I I R L N R F -A R I I A N Y U T O O O U T P F -R S E C I S N A B O S C N E R A -D R S M P C U U N E L T E S I L -- cgit