Percolation/Mean run density: Difference between revisions

Content added Content deleted
m (→‎{{header|FORTRAN}}: Changed language name to "Fortran")
(Updated D entry)
Line 188: Line 188:


double meanRunDensity(in size_t n, in double prob) {
double meanRunDensity(in size_t n, in double prob) {
//return n.iota.map!(_ => uniform01 < prob).array
//return n.iota.map!(_ => uniform01 < prob)
return n.iota.map!(_ => uniform(0.0, 1.0) < prob).array
return n.iota.map!(_ => uniform(0.0, 1.0) < prob)
.uniq.sum / cast(double)n;
.array.uniq.sum / double(n);
}
}