Distribution of 0 digits in factorial series: Difference between revisions
Distribution of 0 digits in factorial series (view source)
Revision as of 16:19, 20 June 2021
, 2 years agoAdded Perl
m (→{{header|Phix}}: added pwa/p2js comment) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 486:
First ratio < 0.16 47332 0.15999999579985665
Real time: 4.898 s CPU share: 99.55 % // 2.67s on 2200G freepascal 3.2.2</pre>
=={{header|Perl}}==
{{libheader|ntheory}}
<lang perl>use strict;
use warnings;
use ntheory qw/factorial/;
for my $n (100, 1000, 10000) {
my($sum,$f) = 0;
$f = factorial $_ and $sum += ($f =~ tr/0//) / length $f for 1..$n;
printf "%5d: %.5f\n", $n, $sum/$n;
}</lang>
{{out}}
<pre> 100: 0.24675
1000: 0.20354
10000: 0.17300</pre>
=={{header|Phix}}==
| |||