Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View 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));