Data commit

Task/Monty-Hall-problem/Sinclair-ZX81-BASIC/monty-hall-problem.basic

@@ -0,0 +1,15 @@
+ 10 PRINT "     WINS IF YOU"
+ 20 PRINT "STICK","SWITCH"
+ 30 LET STICK=0
+ 40 LET SWITCH=0
+ 50 FOR I=1 TO 1000
+ 60 LET CAR=INT (RND*3)
+ 70 LET GUESS=INT (RND*3)
+ 80 LET SHOW=INT (RND*3)
+ 90 IF SHOW=GUESS OR SHOW=CAR THEN GOTO 80
+100 LET NEWGUESS=INT (RND*3)
+110 IF NEWGUESS=GUESS OR NEWGUESS=SHOW THEN GOTO 100
+120 IF GUESS=CAR THEN LET STICK=STICK+1
+130 IF NEWGUESS=CAR THEN LET SWITCH=SWITCH+1
+140 NEXT I
+150 PRINT AT 2,0;STICK,SWITCH