ch-2 minor improvement

2 files changed, 8 insertions, 8 deletions

diff --git a/challenge-196/steve-g-lynn/perl/ch-2.pl b/challenge-196/steve-g-lynn/perl/ch-2.pl
index 2feb50ed23..49d8af77f5 100755
--- a/challenge-196/steve-g-lynn/perl/ch-2.pl
+++ b/challenge-196/steve-g-lynn/perl/ch-2.pl
@@ -24,11 +24,11 @@ sub print_edges {
     my @ranges = @_;
     my $return_string = '(['. $ranges[0] . ','; 
 
-    for my $i (1 .. @ranges-1) {
+    for my $i (1 .. @ranges-2) {
         ( ($ranges[$i] - $ranges[$i-1]) > 1 ) && 
-            ($return_string .= ($ranges[$i-1] . "],[" . $ranges[$i] . ","));
-        ( $i == @ranges-1 ) && 
-            ($return_string .= ($ranges[$i] . "])"))
+            ($return_string .= ($ranges[$i-1] . "],[" . $ranges[$i] . ",")); 
     }
+    #-- end return string    
+    $return_string .= ($ranges[@ranges-1] . '])');
     $return_string;   
 }
diff --git a/challenge-196/steve-g-lynn/raku/ch-2.p6 b/challenge-196/steve-g-lynn/raku/ch-2.p6
index e2102776d3..9c6a14f2c5 100755
--- a/challenge-196/steve-g-lynn/raku/ch-2.p6
+++ b/challenge-196/steve-g-lynn/raku/ch-2.p6
@@ -13,11 +13,11 @@ sub range-list( @array) {
 
 sub print-edges( @ranges ) {
     my $return-string = "([@ranges[0],"; 
-    for (1 .. @ranges-1) -> $i {
+    for (1 .. @ranges-2) -> $i {
         ( (@ranges[$i] - @ranges[$i-1]) > 1 ) && 
-            ($return-string ~= (@ranges[$i-1] ~ "],[" ~ @ranges[$i] ~ ","));
-        ( $i == @ranges-1 ) && 
-            ($return-string ~= (@ranges[$i] ~ "])"))
+            ($return-string ~= (@ranges[$i-1] ~ "],[" ~ @ranges[$i] ~ ",")); 
     }
+    #-- end the string
+    $return-string ~= (@ranges[@ranges-1] ~ "])");
     $return-string;   
 }