Data update

Task/Monty-Hall-problem/Applesoft-BASIC/monty-hall-problem.basic

@@ -0,0 +1,41 @@
+ 100  DATA 1000,ONE,TWO,THREE,GOAT,CAR,2,STICKER,SWITCHER,", YOU HAVE WON A "," HAS WON THE CAR ",","," OR"
+ 110  READ TIMES,D$(0),D$(1),D$(2),P$(0),P$(1),K,STICKER$,SWITCHER$,CAR$,HAS$,I$(1),I$(2)
+ 120  LET M$ =  CHR$ (13)
+ 130  DEF  FN R(N) =  INT ( RND (1) * N)
+ 140  TEXT
+ 150  FOR GAME = 1 TO TIMES
+ 160      IF K = 1 THEN  PRINT M$" CONT";
+ 170      VTAB 1 + (K = 1) * 22
+ 180      HTAB 1
+ 190      IF K = 1 THEN  END
+ 200      IF K THEN  HOME
+ 210      LET CAR =  FN R(3)
+ 220      LET GUESS =  FN R(3)
+ 230      FOR LOOP = 0 TO 0
+ 240          LET SHOW =  FN R(3)
+ 250          LET LOOP =  - (SHOW = GUESS OR SHOW = CAR)
+ 260      NEXT LOOP
+ 270      FOR LOOP = 0 TO 0
+ 280          LET NG =  FN R(3)
+ 290          LET LOOP =  - (NG = GUESS OR NG = SHOW)
+ 300      NEXT LOOP
+ 310      LET STICK = STICK + (GUESS = CAR)
+ 320      LET SWITCH = SWITCH + (NG = CAR)
+ 330      PRINT "THE MONTY HALL PROBLEM"M$M$"     LET'S MAKE A DEAL - GAME # "GAME;M$M$"WHICH DOOR DO YOU THINK THAT THE CAR IS BEHIND?"M$M$"CHOOSE";
+ 340      FOR I = 0 TO 2
+ 350          PRINT I$((I > 0) + (I = 2))" DOOR NUMBER "D$(I);
+ 360      NEXT I
+ 370      PRINT "."M$M$"YOU HAVE CHOSEN DOOR NUMBER "D$(GUESS)".";
+ 380      CALL  - 868
+ 390      PRINT M$M$"THERE IS A GOAT BEHIND DOOR "D$(SHOW)". DO ";
+ 400      CALL  - 868
+ 410      PRINT M$"YOU WANT TO SWITCH TO DOOR NUMBER "D$(NG)"?";
+ 420      CALL  - 868
+ 430      PRINT  CHR$ (8)M$M$STICKER$CAR$P$(GUESS = CAR)".";
+ 440      CALL  - 868
+ 450      PRINT M$SWITCHER$CAR$P$(NG = CAR)".";
+ 460      CALL  - 868
+ 470      PRINT M$M$STICKER$HAS$STICK" TIMES"M$"AND "SWITCHER$HAS$SWITCH;M$"TIMES OUT OF "GAME"."M$
+ 480      LET K =  PEEK (49152) > 127
+ 490      LET C =  PEEK (49200 - K * 32)
+ 500  NEXT GAME

Task/Monty-Hall-problem/EasyLang/monty-hall-problem.easy

@@ -1,12 +1,12 @@
 max = 1000000
 for i = 1 to max
-   car_door = randint 3
-   chosen_door = randint 3
+   car_door = random 3
+   chosen_door = random 3
    if car_door <> chosen_door
       montys_door = 6 - car_door - chosen_door
    else
       repeat
-         montys_door = randint 3
+         montys_door = random 3
          until montys_door <> car_door
       .
    .

Task/Monty-Hall-problem/V-(Vlang)/monty-hall-problem.v

@@ -12,7 +12,7 @@ fn main() {
         }
         stay_wins += doors[guess]
         switch_wins += doors[3 - guess - shown]
-		for clear in 0..3 {if doors[clear] != 0 {doors[clear] = 0}}
+		for i in 0..3 {doors[i] = 0}
 	}
 	println("Simulating ${games} games:")
 	println("Staying wins ${stay_wins} times at ${(f32(stay_wins) / f32(games) * 100):.2}% of games")