2 files changed, 4 insertions, 4 deletions
diff --git a/challenge-052/roger-bell-west/perl5/ch-2.pl b/challenge-052/roger-bell-west/perl5/ch-2.pl
index 9054cc37a3..fb5f7a81eb 100755
--- a/challenge-052/roger-bell-west/perl5/ch-2.pl
+++ b/challenge-052/roger-bell-west/perl5/ch-2.pl
@@ -9,12 +9,12 @@ my $coins=8;
 
 foreach my $a (0..$coins-1) {
   my @c=($a,$coins-1-$a);
-  while ($c[0]>2 || $c[1]>2) {
+  while (($c[0]>2 || $c[1]>2) && $c[0]>0 && $c[1]>0) {
     @c=sort @c;
     $c[1]-=2;
   }
   my $toplay=0;
-  while ($c[0]>1 || $c[1]>1) {
+  while (($c[0]>1 || $c[1]>1) && $c[0]>0 && $c[1]>0) {
     @c=sort @c;
     $c[1]--;
     $toplay=1-$toplay;
diff --git a/challenge-052/roger-bell-west/perl6/ch-2.p6 b/challenge-052/roger-bell-west/perl6/ch-2.p6
index ed8114d681..42776c898c 100755
--- a/challenge-052/roger-bell-west/perl6/ch-2.p6
+++ b/challenge-052/roger-bell-west/perl6/ch-2.p6
@@ -6,12 +6,12 @@ my $coins=8;
 
 for (0..$coins-1) -> $a {
   my @c=($a,$coins-1-$a);
-  while (@c[0]>2 || @c[1]>2) {
+  while ((@c[0]>2 || @c[1]>2) && @c[0]>0 && @c[1]>0) {
     @c=sort @c;
     @c[1]-=2;
   }
   my $toplay=0;
-  while (@c[0]>1 || @c[1]>1) {
+  while ((@c[0]>1 || @c[1]>1) && @c[0]>0 && @c[1]>0) {
     @c=sort @c;
     @c[1]--;
     $toplay=1-$toplay;