Distribution of 0 digits in factorial series: Difference between revisions
Distribution of 0 digits in factorial series (view source)
Revision as of 10:08, 10 June 2021
, 2 years agoAdded Wren
(Added Wren) |
|||
Line 70:
The mean proportion of 0 in factorials from 1 to 10000 is 0.17300384824186707.
The mean proportion dips permanently below 0.16 at 47332.
</pre>
=={{header|Wren}}==
{{libheader|Wren-big}}
{{libheader|Wren-fmt}}
Very slow indeed, 10.75 minutes to reach N = 10,000.
<lang ecmascript>import "/big" for BigInt
import "/fmt" for Fmt
var fact = BigInt.one
var sum = 0
System.print("The mean proportion of zero digits in factorials up to the following are:")
for (n in 1..10000) {
fact = fact * n
var bytes = fact.toString.bytes
var digits = bytes.count
var zeros = bytes.count { |b| b == 48 }
sum = sum + zeros / digits
if (n == 100 || n == 1000 || n == 10000) {
Fmt.print("$,6d = $12.10f", n, sum / n)
}
if (n % 200 == 0) System.print(n)
}</lang>
{{out}}
<pre>
The mean proportion of zero digits in factorials up to the following are:
100 = 0.2467531862
1,000 = 0.2035445511
10,000 = 0.1730038482
</pre>
| |||