diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-11-17 15:49:52 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-11-17 15:49:52 +0000 |
| commit | f71be4390a9b964c17d9e80fc731bfab756fab03 (patch) | |
| tree | c13f33506b25fa2161d662e8e28519b37d1f84a1 | |
| parent | 99778c631bbac15475af507bbad1b273e7db9e33 (diff) | |
| parent | 21de485909165b00999b7cfca5df5ab0e0d457d6 (diff) | |
| download | perlweeklychallenge-club-f71be4390a9b964c17d9e80fc731bfab756fab03.tar.gz perlweeklychallenge-club-f71be4390a9b964c17d9e80fc731bfab756fab03.tar.bz2 perlweeklychallenge-club-f71be4390a9b964c17d9e80fc731bfab756fab03.zip | |
Merge pull request #5239 from wlmb/challenges
Change presentation of results
| -rwxr-xr-x | challenge-139/wlmb/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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} |