Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
21
Task/Monty-Hall-problem/Sidef/monty-hall-problem.sidef
Normal file
21
Task/Monty-Hall-problem/Sidef/monty-hall-problem.sidef
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
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 show;
|
||||
do {
|
||||
show = 3.rand.int
|
||||
} 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));
|
||||
Loading…
Add table
Add a link
Reference in a new issue