[REBOL] Re: A Rebol Challenge. The Monty Hall Puzzle
From: sunandadh:aol at: 16-Dec-2001 6:52
Hi Reichart.
> But maybe you can do better in Rebol. I don't see a way to off the top of
> my head. Note that if we're just comparing the core computation, the
matlab
> is barely three lines. (The "o" variable is not strictly needed, but I am
> including it anyway to explicitly construct the
> door-picked-by-Monty.)
Here's my attempt. It runs a simulated Monty 500 times.
I get a "length" of 142 (length? mold load %doors.r), but I don't have the
same text message as you and the "external" length could be shorter by
one-lining it all and reducing the variables to W and N.
The core calculation is just one line, but I'm using a different algorithm.
rebol []
Win: 0 n: 0
loop 500 [
n: n + 1
win: win + last sort next random [0 0 1]
]
Print ["Win%" win * 100 / n]
In slow motion and with intermediate variables this is:
Three doors: one has a 1 behind it (thats the car) the other two have a big
zero.
Doors: random [0 0 1]
whichever door I pick is modelled by
MyDoor: first Doors
Monty then shows me a zero door:
MontyDoor: mimimum Door/2 Door/3
I then select the other of Monty's doors:
MySwappedDoor: Maximim Door/2 Door/3
which is the same as
MySwappedDoor: last sort next Doors
so if MySwappedDoor is a 1, I'm a winner!
Sunanda
