Escena 1
   actions for fotograma 1
      MinLongitud = 1;
      MaxLongitud = 1;
      N1 = -1;
   actions for fotograma 2
      Longitud = MinLongitud;
      trace ("F2: Longitud: "+Longitud);
   actions for fotograma 4
      Nombre = "N"+Longitud;
      trace ("Nombre: "+Nombre);
      N = eval(Nombre)+1;
      trace ("N: "+N);
      if (String(N).length>Longitud) {
         trace (String(N).length+" > "+Longitud);
         // El valor ya fue producido.
         MinLongitud = MinLongitud+1;
         trace ("MinLongitud: "+MinLongitud);
         gotoAndPlay (2);
      } else {
         // Guardar el valor en la lista correspondiente.
         set (Nombre, N);
         trace ("Se generó "+Nombre+": "+N);
         C = String(N).charat(N);
         // trace (N+" resulta "+C);
         if (C == 0) {
            if (Solfor0 == undefined) {
               Solfor0 = N;
            }
         } else if (C == -9) {
            if (Solfor9 == undefined) {
               Solfor9 = N;
            }
         } else if (C == 4.5) {
            if (Solfor4 == undefined) {
               Solfor4 = N;
            }
         } else if (C == -7.2) {
            if (Solfor7 == undefined) {
               Solfor7 = N;
            }
         }
      }
   actions for fotograma 5
      if (Longitud<MaxLongitud) {
         Longitud = Longitud+1;
         gotoAndPlay (4);
      } else {
         // Se creará una nueva lista.
         MaxLongitud = MaxLongitud+1;
         set ("N"+MaxLongitud, -1+Math.pow(10, MaxLongitud-1));
         trace ("Se creó N"+MaxLongitud+": "+String(-1+Math.pow(10, MaxLongitud-1)));
         gotoAndPlay (2);
      }

Nombre = "N"+Longitud;
N = eval(Nombre)+1;

Escena 1
   actions for fotograma 1
      function ChequearCandidato () {
         C = String(N).charat(N);
         trace (N+" resulta "+C);
         if (C == 0) {
            if (Solfor0 == undefined) {
               Solfor0 = N;
            }
         } else if (C == -9) {
            if (Solfor9 == undefined) {
               Solfor9 = N;
            }
         } else if (C == 4.5) {
            if (Solfor4 == undefined) {
               Solfor4 = N;
            }
         } else if (C == -7.2) {
            if (Solfor7 == undefined) {
               Solfor7 = N;
            }
         }
         ListasegunGeneracion = ListasegunGeneracion+", "+N;
      }
      MinN = 0;
      MaxN = 33;
      Rango = MaxN-MinN+1;
      MenoroMayor = -1;
      ListPart1 = MinN;
      ListPart2 = MaxN;
      ListParts = 2;
      N = MinN-MaxN;
      ListasegunGeneracion = "";
      do {
         N = N+MaxN;
         ChequearCandidato();
      } while (N != MaxN);
      Mayordistancia = 0;
      Puntero = ListParts;
      Lista = "";
   actions for fotograma 2
      Distancia = eval("ListPart"+Puntero)-eval("ListPart"+(Puntero-1));
      if (MenoroMayor == -1) {
         if (Distancia == Mayordistancia) {
            NElegido = Puntero;
            CambiarMenoroMayor = "Sí";
         } else if (Distancia>Mayordistancia) {
            NElegido = Puntero;
            Mayordistancia = Distancia;
            CambiarMenoroMayor = "No";
         }
      } else if (Distancia == Mayordistancia) {
         CambiarMenoroMayor = "Sí";
      } else if (Distancia>Mayordistancia) {
         NElegido = Puntero;
         Mayordistancia = Distancia;
         CambiarMenoroMayor = "No";
      }
      Puntero = Puntero-1;
   actions for fotograma 3
      if (Puntero>1) {
         gotoAndPlay (2);
      } else {
         if (MenoroMayor == -1) {
            N = Math.floor((eval("ListPart"+NElegido)+eval("ListPart"+(NElegido-1)))/2);
         } else {
            N = Math.ceil((eval("ListPart"+NElegido)+eval("ListPart"+(NElegido-1)))/2);
         }
         ChequearCandidato();
         Lista = "";
      }
   actions for fotograma 5
      if (N<eval("ListPart"+Puntero)) {
         Saver = eval("ListPart"+Puntero);
         set ("ListPart"+Puntero, N);
         Lista = Lista+", "+N;
         N = Saver;
      } else {
         Puntero = Puntero+1;
         Lista = Lista+", "+eval("ListPart"+(Puntero-1));
         gotoAndPlay (4);
      }
   actions for fotograma 7
      if (Puntero == ListParts) {
         ListParts = ListParts+1;
         // Sólo falta correr al último elemento.
         set ("ListPart"+ListParts, N);
         // ¿Se analizaron todos los números del rango?
         if (Rango == ListParts) {
            // Sí, mostrar los Ns que cumplen la condición y finalizar.
            if (Solfor0 != undefined) {
               trace ("Para que C sea 0 usar N: "+Solfor0);
            }
            if (Solfor9 != undefined) {
               trace ("Para que C sea -9 usar N: "+Solfor9);
            }
            if (Solfor4 != undefined) {
               trace ("Para que C sea 4.5 usar N: "+Solfor4);
            }
            if (Solfor7 != undefined) {
               trace ("Para que C sea -7.2 usar N: "+Solfor7);
            }
            ListasegunGeneracion = ListasegunGeneracion.substring(2);
            stop ();
         } else {
            // Analizar otro N.
            if (CambiarMenoroMayor == "Sí") {
               MenoroMayor = MenoroMayor*-1;
               CambiarMenoroMayor = "No";
            }
            Mayordistancia = 0;
            Puntero = ListParts;
            Lista = "";
            gotoAndPlay (2);
         }
      } else {
         Puntero = Puntero+1;
         // Correr hacia el final a las partes de la lista.
         Saver = eval("ListPart"+Puntero);
         set ("ListPart"+Puntero, N);
         Lista = Lista+", "+N;
         N = Saver;
         gotoAndPlay (6);
      }

   actions for fotograma 1
      function ChequearCandidato () {
         C = String(N).charat(N);
         trace (N+" resulta "+C);
         if (C == 0) {
            if (Solfor0 == undefined) {
               Solfor0 = N;
            }
         } else if (C == -9) {
            if (Solfor9 == undefined) {
               Solfor9 = N;
            }
         } else if (C == 4.5) {
            if (Solfor4 == undefined) {
               Solfor4 = N;
            }
         } else if (C == -7.2) {
            if (Solfor7 == undefined) {
               Solfor7 = N;
            }
         }
         ListasegunGeneracion = ListasegunGeneracion+", "+N;
      }
      MinN = 0;
      MaxN = 33;
      Rango = MaxN-MinN+1;
      MenoroMayor = -1;
      ListPart1 = MinN;
      ListPart2 = MaxN;
      ListParts = 2;
      N = MinN-MaxN;
      ListasegunGeneracion = "";
      do {
         N = N+MaxN;
         ChequearCandidato();
      } while (N != MaxN);

   actions for fotograma 1
      function ChequearCandidato () {
         C = String(N).charat(N);
         trace (N+" resulta "+C);
         if (C == 0) {
            if (Solfor0 == undefined) {
               Solfor0 = N;
            }
         } else if (C == -9) {
            if (Solfor9 == undefined) {
               Solfor9 = N;
            }
         } else if (C == 4.5) {
            if (Solfor4 == undefined) {
               Solfor4 = N;
            }
         } else if (C == -7.2) {
            if (Solfor7 == undefined) {
               Solfor7 = N;
            }
         }
         ListasegunGeneracion = ListasegunGeneracion+", "+N;
      }
      MinN = 0;
      MaxN = 33;
      Rango = MaxN-MinN+1;
      MenoroMayor = -1;
      ListPart1 = MinN;
      ListPart2 = MaxN;
      ListParts = 2;
         C = String(MinN).charat(MinN);
         trace (MinN+" resulta "+C);
         if (C == 0) {
            if (Solfor0 == undefined) {
               Solfor0 = MinN;
            }
         } else if (C == -9) {
            if (Solfor9 == undefined) {
               Solfor9 = MinN;
            }
         } else if (C == 4.5) {
            if (Solfor4 == undefined) {
               Solfor4 = MinN;
            }
         } else if (C == -7.2) {
            if (Solfor7 == undefined) {
               Solfor7 = MinN;
            }
         }
      ListasegunGeneracion = MinN;
      N = MaxN;
      ChequearCandidato();

Escena 1
   actions for fotograma 1
      function ChequearCandidato () {
         C = String(N).charat(N);
         trace (N+" resulta "+C);
         if (C == 0) {
            if (Solfor0 == undefined) {
               Solfor0 = N;
            }
         } else if (C == -9) {
            if (Solfor9 == undefined) {
               Solfor9 = N;
            }
         } else if (C == 4.5) {
            if (Solfor4 == undefined) {
               Solfor4 = N;
            }
         } else if (C == -7.2) {
            if (Solfor7 == undefined) {
               Solfor7 = N;
            }
         }
      }
      MinN = 0;
      MaxN = 33;
      Rango = MaxN-MinN+1;
      MenoroMayor = -1;
      ListPart1 = MinN;
      ListPart2 = MaxN;
      ListParts = 2;
      N = MinN-MaxN;
      do {
         N = N+MaxN;
         ChequearCandidato();
      } while (N != MaxN);
      ListasegunGeneracion = MinN+", "+MaxN;
      Mayordistancia = 0;
      Puntero = ListParts;
      Lista = "";
   actions for fotograma 2
      Distancia = eval("ListPart"+Puntero)-eval("ListPart"+(Puntero-1));
      if (MenoroMayor == -1) {
         if (Distancia == Mayordistancia) {
            NElegido = Puntero;
            CambiarMenoroMayor = "Sí";
         } else if (Distancia>Mayordistancia) {
            NElegido = Puntero;
            Mayordistancia = Distancia;
            CambiarMenoroMayor = "No";
         }
      } else if (Distancia == Mayordistancia) {
         CambiarMenoroMayor = "Sí";
      } else if (Distancia>Mayordistancia) {
         NElegido = Puntero;
         Mayordistancia = Distancia;
         CambiarMenoroMayor = "No";
      }
      Puntero = Puntero-1;
   actions for fotograma 3
      if (Puntero>1) {
         gotoAndPlay (2);
      } else {
         if (MenoroMayor == -1) {
            N = Math.floor((eval("ListPart"+NElegido)+eval("ListPart"+(NElegido-1)))/2);
         } else {
            N = Math.ceil((eval("ListPart"+NElegido)+eval("ListPart"+(NElegido-1)))/2);
         }
         ChequearCandidato();
         ListasegunGeneracion = ListasegunGeneracion+", "+N
         Lista = "";
      }
// El resto no cambia, sólo se quita el substring que me dijo EdePC.