Monty Hall problem: Difference between revisions
Content added Content deleted
Line 676: | Line 676: | ||
PickDoors=. (SIZE f ?@$ DOORS f) NB. Picking doors randomly |
PickDoors=. (SIZE f ?@$ DOORS f) NB. Picking doors randomly |
||
boxes=. < , a: $~ 6: NB. Appending 6 (empty) boxes to the input |
|||
SetBoxes=. '. . . . . .'&(] , ;: o [) o < |
|||
doors=. < o 3: DOORS} ] NB. 3 doors |
doors=. < o 3: DOORS} ] NB. 3 doors |
||
car=. < o PickDoors CAR} ] NB. Randomizing car door positions |
car=. < o PickDoors CAR} ] NB. Randomizing car door positions |
||
Line 688: | Line 689: | ||
SwitchDisplay=. 'Switch: ' , ": o (CAR f freq o = SWITCH f) |
SwitchDisplay=. 'Switch: ' , ": o (CAR f freq o = SWITCH f) |
||
sim=. (StayDisplay ; SwitchDisplay) o switch o Monty o all o stay o car o doors o |
sim=. (StayDisplay ; SwitchDisplay) o switch o Monty o all o stay o car o doors o boxes f. |
||
sim 1000000 |
sim 1000000 |