Data commit

Task/Monty-Hall-problem/BASIC256/monty-hall-problem.basic

@@ -0,0 +1,23 @@
+numTiradas = 1000000
+permanece = 0
+cambia = 0
+
+for i = 1 to numTiradas
+	pta_coche = int(rand * 3) + 1
+	pta_elegida = int(rand * 3) + 1
+	if pta_coche <> pta_elegida then
+		pta_montys = 6 - pta_coche - pta_elegida
+	else
+		do
+			pta_montys = int(Rand * 3) + 1
+		until pta_montys <> pta_coche
+	end if
+	# manteenr elección
+	if pta_coche = pta_elegida then permanece += 1
+	# cambiar elección
+	if pta_coche = 6 - pta_montys - pta_elegida then cambia +=1
+next i
+
+print "Si mantiene su elección, tiene un "; permanece / numTiradas * 100 ;"% de probabilidades de ganar."
+print "Si cambia, tiene un "; cambia / numTiradas * 100; "% de probabilidades de ganar."
+end