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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Monty-Hall-problem/Sidef/monty-hall-problem.sidef
View file

@ -1,21 +1,21 @@
var n = 1000; # number of times to play
var switchWins = (var stayWins = 0); # sum of each strategy's wins
var n = 1000 # number of times to play
var switchWins = (var stayWins = 0) # sum of each strategy's wins
 
n.times { # play the game n times
var prize = 3.rand.int;
var chosen = 3.rand.int;
var prize = pick(^3)
var chosen = pick(^3)
 
var show;
do {
show = 3.rand.int
} while (show ~~ [chosen, prize]);
show = pick(^3)
} while (show ~~ [chosen, prize])
 
given(chosen) {
when (prize) { stayWins += 1 }
when ([3 - show - prize]) { switchWins += 1 }
default { die "~ error ~" }
}
}
}
say ("Staying wins %.2f%% of the time." % (100.0 * stayWins / n));
say ("Switching wins %.2f%% of the time." % (100.0 * switchWins / n));
 
say ("Staying wins %.2f%% of the time." % (100.0 * stayWins / n))
say ("Switching wins %.2f%% of the time." % (100.0 * switchWins / n))