aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Probabilistic-choice/D/probabilistic-choice-1.d Normal file
View file

@ -0,0 +1,15 @@
import std.stdio, std.random, std.string, std.range;
void main() {
enum int nTrials = 1_000_000;
enum items = "aleph beth gimel daleth he waw zayin heth".split();
enum pr = [1/5., 1/6., 1/7., 1/8., 1/9., 1/10., 1/11., 1759/27720.];
double[pr.length] counts = 0.0;
foreach (_; 0 .. nTrials)
counts[dice(pr)]++;
writeln("Item Target prob Attained prob");
foreach (name, p, co; zip(items, pr, counts[]))
writefln("%-7s %.8f %.8f", name, p, co / nTrials);
}

24
Task/Probabilistic-choice/D/probabilistic-choice-2.d Normal file
View file

@ -0,0 +1,24 @@
import std.stdio, std.random, std.algorithm, std.range;
void main() {
enum int nTrials = 1_000_000;
auto items = "aleph beth gimel daleth he waw zayin heth".split();
enum pr = [1/5., 1/6., 1/7., 1/8., 1/9., 1/10., 1/11., 1759/27720.];
double[pr.length] cumulatives = pr[];
foreach (i, ref c; cumulatives[1 .. $ - 1])
c += cumulatives[i];
cumulatives[$ - 1] = 1.0;
double[pr.length] counts = 0.0;
auto rnd = Xorshift(unpredictableSeed());
foreach (_; 0 .. nTrials) {
double rnd01 = rnd.front / cast(double)rnd.max;
rnd.popFront();
counts[cumulatives[].countUntil!(c => c >= rnd01)()]++;
}
writeln("Item Target prob Attained prob");
foreach (name, p, co; zip(items, pr, counts[]))
writefln("%-7s %.8f %.8f", name, p, co / nTrials);
}