Wolstenholme numbers: Difference between revisions
m
→{{header|Perl}}: oops, output issue
SqrtNegInf (talk | contribs) (→{{header|Perl}}: now runs correctly, and on older Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops, output issue) |
||
Line 407:
printf "%5s: %s\n", $_, abbr $W[$_-1]->numerator() for 1..20, 5e2, 1e3, 2.5e3, 5e3, 1e4;
my($n,$c);
do { printf "%5s: %s\n", ++$c, abbr $W[$n]->numerator() if is_prime $W[++$n]->numerator() } until $c == 15;
|