Monty Hall problem: Difference between revisions

m
→‎{{header|Ada}}: Increased number of iterations
(added ocaml from haskell)
m (→‎{{header|Ada}}: Increased number of iterations)
Line 17:
 
procedure Monty_Stats is
Num_Iterations : Positive := 1000100000;
type Action_Type is (Stay, Switch);
type Prize_Type is (Goat, Pig, Car);
Line 89:
Results
<pre>
Stay : count 50734308 = 5034.7031%
Switch : count 66965695 = 6665.9069%
</pre>
 
Anonymous user