Monty Hall problem: Difference between revisions
m
→{{header|REXX}}: add derived from Java
Walterpachl (talk | contribs) (add PL/I and REXX) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: add derived from Java) |
||
Line 2,582:
=={{header|REXX}}==
<lang rexx>/* REXX ***************************************************************
* 30.08.2013 Walter Pachl derived from Java
**********************************************************************/
Call time 'R'
Line 2,608:
Exit
r3: Return random(2)+1</lang>
Output for 1000000 samples:
<pre>
Switching wins 666611 times.
|