From 21de485909165b00999b7cfca5df5ab0e0d457d6 Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Wed, 17 Nov 2021 08:59:50 -0600
Subject: Change presentation of results

---
 challenge-139/wlmb/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-139/wlmb/perl/ch-2.pl b/challenge-139/wlmb/perl/ch-2.pl
index 7776cb696c..82f4906a5c 100755
--- a/challenge-139/wlmb/perl/ch-2.pl
+++ b/challenge-139/wlmb/perl/ch-2.pl
@@ -22,7 +22,7 @@ while($count<$max_count){
     my @groups= grep {$_} split /(\d{$length})/, 1./$prime; # groups of digits
     pop @groups; # throw away last (guard) repetition (posibly inexact)
      ++$count, push @lines,
-                    "$count-th long prime is $prime",
+                    "long_prime[$count] is $prime",
 		    "       as 1/$prime = " . shift(@groups) . join "_", @groups,"..."
         if (first # if cycle doesn't stop early
            {my $x=10**$_%$prime; $x==1||$x==0}
-- 
cgit