16 lines
435 B
Plaintext
16 lines
435 B
Plaintext
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
|