n <- 200 # número de veces que se repetirá el código
no_coincidencias <- 0  # Inicializar contador de no coincidencias

for (iteracion in 1:n) {
  zd <- list()  # Inicializar lista vacía
  zi <- list()  # Inicializar lista vacía
  n_lista <- 1  # Inicializar contador
  
  while (n_lista <= 8) {
    d <- sample(0:9, 1)  # Generar número aleatorio
    i <- sample(0:9, 1)  # Generar número aleatorio
    if (!d %in% zd & !i %in% zi) {
      zd[[n_lista]] <- d  # Agregar número a la lista derecha
      zi[[n_lista]] <- i  # Agregar número a la lista izquierda
      n_lista <- n_lista + 1  # Incrementar contador
    } 
  }
  
  # Comparar los elementos de las dos listas y guardar la posición de los iguales
  iguales_pos <- list()
  for (j in 1:length(zd)) {
    if (zd[[j]] == zi[[j]]) {
      iguales_pos[[length(iguales_pos)+1]] <- j
    } 
  }

  # Tomar una decisión en consecuencia
  if (length(iguales_pos) > 0){
    cat("Iteración", iteracion, "\n")
    cat("Hay elementos iguales en las dos listas en las posiciones:", paste(iguales_pos, collapse = ", "),"\n")
  } else {
    cat("Iteración", iteracion, "\n")
    cat("No hay elementos iguales en las dos listas.","\n")
    no_coincidencias <- no_coincidencias + 1 # sumar al contador
  }
  
  # Imprimir resultados
  cat("zd:", unlist(zd), "\n")
  cat("zi:", unlist(zi), "\n")
  cat("no_coincidencias:", no_coincidencias, "\n\n")
}

  # Estimación de la probabilidad
  no_coincidencias/n