Data commit

Task/Monty-Hall-problem/Sidef/monty-hall-problem.sidef

@@ -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 = pick(^3)
+   var chosen = pick(^3)
+ 
+   var show;
+   do {
+        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))