From e1f1cb6b96eaa98bf2e05afb5b8f22966dda6a99 Mon Sep 17 00:00:00 2001
From: Roger Bell_West <roger@firedrake.org>
Date: Mon, 16 Mar 2020 18:22:09 +0000
Subject: 52 part 2 update

---
 challenge-052/roger-bell-west/perl5/ch-2.pl | 4 ++--
 challenge-052/roger-bell-west/perl6/ch-2.p6 | 4 ++--
 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;
-- 
cgit