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

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Probabilistic-choice/E/probabilistic-choice-2.e
View file

@ -31,7 +31,7 @@ def makeIntervalTree(assocs :List[Tuple[any, float64]]) {
return split(assocs[midpoint][1], makeIntervalTree(assocs.run(0, midpoint)),
makeIntervalTree(assocs.run(midpoint)))
} else {
def <nowiki>[[value, _]] := assocs</nowiki>
def [[value, _]] := assocs
return leaf(value)
}
}

4
Task/Probabilistic-choice/Perl-6/probabilistic-choice.pl6
View file

@ -5,8 +5,8 @@ constant @event = <aleph beth gimel daleth he waw zayin heth>;
constant @P = flat (1 X/ 5 .. 11), 1759/27720;
constant @cP = [\+] @P;
my @results;
@results[ @cP.first: { $_ > once rand }, :k ]++ xx TRIALS;
my atomicint @results[+@event];
(^TRIALS).race.map: { @results[ @cP.first: { $_ > once rand }, :k ]⚛++; }
say 'Event Occurred Expected Difference';
for ^@results {