Monty Hall problem: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 3,068: | Line 3,068: | ||
<syntaxhighlight lang="k"> |
<syntaxhighlight lang="k"> |
||
montyhall:{t:,/ 1_ x {`prng@`t[];ch:1?3;pr:1?3;sw:1?2;$[sw;a:ch=pr;a:~(ch=pr)];a}\0N;("KEEP %";(+/t)%x;"SWAP %";(+/~t)%x)} |
montyhall:{t:,/ 1_ x {`prng@`t[];ch:1?3;pr:1?3;sw:1?2;$[sw;a:ch=pr;a:~(ch=pr)];a}\0N;("KEEP %";(+/t)%x;"SWAP %";(+/~t)%x)} |
||
montyhall 100000 |
|||
</syntaxhighlight> |
</syntaxhighlight> |
||