aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Monty-Hall-problem/BASIC/monty-hall-problem.basic → Task/Monty-Hall-problem/BASIC/monty-hall-problem-1.basic
View file

15
Task/Monty-Hall-problem/BASIC/monty-hall-problem-2.basic Normal file
View file

@ -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 PRINT AT 2,0;STICK,SWITCH
150 NEXT I