Statistics/Basic: Difference between revisions

Content added Content deleted
m (→‎{{header|REXX}}: removed the last blank line. -- ~~~~)
(Updated D entry)
Line 530:
return tuple(0.0L, 0.0L);
 
real sx = 0.0, sxx = 0.0;
ulong n;
foreach (x; numbers) {
Line 540:
}
 
void showHistogramshowHistogram01(R)(R numbers) {
enum maxWidth = 50; // N. characters.
ulong[10] bins;
foreach (x; numbers) {
enforce(ximmutable index >= 0.0 && cast(size_t)(x <=* 1bins.0length);
bins[castenforce(size_t)(xindex *>= 100 && index < bins.length)]++;
bins[index]++;
}
immutable real maxFreq = bins.reduce!max(bins);
 
alias std.array.replicate R;
foreach (n, i; bins)
writefln(" %3.1f: %s", n / 10cast(real)bins.0length,
R("*", cast(int)(i / maxFreq * maxWidth)));
writeln();
}
 
version (statistics_basic_main) {
void main() {
importvoid std.random;main() {
foreach (p; 1 .. 7)import {std.random;
 
auto n = iota(10L ^^ p).map!(_ => uniform(0.0L, 1.0L))();
writelnforeach (10L ^^immutable p,; "1 numbers:".. 7); {
writefln auto n = iota("10L Mean:^^ %8p).6f,map!(_ SD:=> %8uniform(0.6f"0L, meanStdDev(n)1.tupleof0L));
showHistogram writeln(n10L ^^ p, " numbers:");
writefln(" Mean: %8.6f, SD: %8.6f", n.meanStdDev.tupleof);
n.showHistogram01;
}
}
}</lang>
Compile with "-version=statistics_basic_main" to run the main function.
{{out}}
<pre>10 numbers:
Retrieved from "https://rosettacode.org/wiki/Statistics/Basic"