Merge branch 'rogerbw-challenge-062-b' of git://github.com/Firedrake/perlweeklychallenge-club into Firedrake-rogerbw-challenge-062-b

3 files changed, 3 insertions, 5 deletions

diff --git a/challenge-062/roger-bell-west/perl/ch-1.pl b/challenge-062/roger-bell-west/perl/ch-1.pl
index c31ed049db..ea49448f4c 100755
--- a/challenge-062/roger-bell-west/perl/ch-1.pl
+++ b/challenge-062/roger-bell-west/perl/ch-1.pl
@@ -13,7 +13,7 @@ my %l;
 while (<>) {
   chomp;
   my @e=split /@/,$_;
-  my $k=lc($e[1]).'!'.$e[0];
+  my $k=lc($e[1]).'@'.$e[0];
   if ($o{u}) {
     delete $l{$k};
   }
diff --git a/challenge-062/roger-bell-west/perl/ch-2.pl b/challenge-062/roger-bell-west/perl/ch-2.pl
index b1f6ea85b8..56c938758a 100755
--- a/challenge-062/roger-bell-west/perl/ch-2.pl
+++ b/challenge-062/roger-bell-west/perl/ch-2.pl
@@ -50,8 +50,7 @@ do {
               my $l=abs($k[$a][$ax[0]]-$k[$b][$ax[0]]);
               if ($l ==
                     abs($k[$a][$ax[1]]-$k[$b][$ax[1]]) &&
-                    ($k[$a][$api] == $k[$b][$api] ||
-                       $l==abs($k[$a][$api]-$k[$b][$api]))) {
+                    ($k[$a][$api] == $k[$b][$api])) {
                 @k=();
                 last OUTER;
               }
@@ -68,7 +67,6 @@ do {
   unless ($d) {
     my $n=scalar @{$r};
     if ($n>$m) {
-      print "$n\n";
       $m=$n;
       $o=$r;
     }
diff --git a/challenge-062/roger-bell-west/raku/ch-1.p6 b/challenge-062/roger-bell-west/raku/ch-1.p6
index 055454f681..64fc646965 100755
--- a/challenge-062/roger-bell-west/raku/ch-1.p6
+++ b/challenge-062/roger-bell-west/raku/ch-1.p6
@@ -21,7 +21,7 @@ for @fn -> $fn {
   for $fh.lines {
     .chomp;
     my @e=comb(/<-[@]>+/,$_);
-    my $k=lc(@e[1]) ~ '!' ~ @e[0];
+    my $k=lc(@e[1]) ~ '@' ~ @e[0];
     if ($u) {
       %l{$k}:delete;
     }