Merge pull request #949 from Firedrake/rogerbw-challenge-035b

Fixed inter-word separator to seven "0"

4 files changed, 4 insertions, 4 deletions

diff --git a/challenge-035/roger-bell-west/perl5/ch-1.pl b/challenge-035/roger-bell-west/perl5/ch-1.pl
index dc7dc40f83..613635e554 100755
--- a/challenge-035/roger-bell-west/perl5/ch-1.pl
+++ b/challenge-035/roger-bell-west/perl5/ch-1.pl
@@ -37,7 +37,7 @@ foreach my $word (split ' ',$m) {
   }
   push @l,join('000',@w);
 }
-print join('000000',@l),"\n";
+print join('0000000',@l),"\n";
 
 __DATA__
 E .
diff --git a/challenge-035/roger-bell-west/perl5/ch-2.pl b/challenge-035/roger-bell-west/perl5/ch-2.pl
index 635f1f598d..1ee0a2fe46 100755
--- a/challenge-035/roger-bell-west/perl5/ch-2.pl
+++ b/challenge-035/roger-bell-west/perl5/ch-2.pl
@@ -26,7 +26,7 @@ while (<>) {
 my $m=join('',@in);
 
 my @m;
-foreach my $word (split /000000+/,$m) {
+foreach my $word (split /0000000+/,$m) {
   my @w;
   foreach my $char (split /000+/,$word) {
     push @w,($d{$char} or '?');
diff --git a/challenge-035/roger-bell-west/perl6/ch-1.p6 b/challenge-035/roger-bell-west/perl6/ch-1.p6
index cc976f2f63..b0fd151f43 100755
--- a/challenge-035/roger-bell-west/perl6/ch-1.p6
+++ b/challenge-035/roger-bell-west/perl6/ch-1.p6
@@ -67,4 +67,4 @@ for grep /./,split ' ',$m -> $word {
   }
   push @l,join('000',@w);
 }
-print join('000000',@l),"\n";
+print join('0000000',@l),"\n";
diff --git a/challenge-035/roger-bell-west/perl6/ch-2.p6 b/challenge-035/roger-bell-west/perl6/ch-2.p6
index f78f91fbbd..facf3bb671 100755
--- a/challenge-035/roger-bell-west/perl6/ch-2.p6
+++ b/challenge-035/roger-bell-west/perl6/ch-2.p6
@@ -56,7 +56,7 @@ for lines() {
 my $m=join('',@in);
 
 my @m;
-for grep /./,split /000000+/,$m -> $word {
+for grep /./,split /0000000+/,$m -> $word {
   my @w;
   for grep /./,split /000+/,$word -> $char {
     push @w,(%d{$char} or '?');