Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/12/2015, 18:10
Tachikomaia
Invitado
 
Mensajes: n/a
Puntos:
Serie de Fibonacci, pero de letras.

Supongan que
0 es "A"
1 es "B"
...
26 es "Z"
27 es "AA"

y así sigue.

¿Cómo podría hacer que la computadora obtenga sólo los números de la serie, y los traduzca a las "frases" como he mostrado?

Dicho de otro modo, quiero "combinar" estos 2 programas:
Código a:
Ver original
  1. // Elementos candidatos: Desde 1 y 1, Suma.
  2. E_Anterior = 1;
  3. E = 1;
  4. // Otros elementos:
  5. Resp = "";
  6.  
  7. // Análisis:
  8. if (E > 10) {
  9.     Resp = "Un elemento que cumple la condición es el "+E+"\n"+Resp;
  10.     stop ();
  11. }
  12.  
  13. Resp = "El elemento "+E+" no cumple la condición.\n"+Resp;
  14. E = E_Anterior + E;
  15. E_Anterior = E - E_Anterior;
  16. gotoAndPlay (2);
Genera la serie de F mientras los números obtenidos (su valor) sean menores o igual que 10.

Código a:
Ver original
  1. // Elementos candidatos: Desde A, +1.
  2. E = "A";
  3. // Otros elementos:
  4. Data = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ";
  5. Char0ID = 0;
  6. CursorMaxPos = 0;
  7.  
  8. // Anali:
  9. if (E == "OK") {
  10.     Resp = "Un elemento que cumple la condición es el "+E+"\n"+Resp;
  11.     stop ();
  12. }
  13.  
  14. Resp = "El elemento "+E+" no cumple la condición.\n"+Resp;
  15. Cursor = 0;
  16. E = "";
  17.  
  18. Resu = "Char"+Cursor+"ID";
  19. EvaledResu = eval(Resu)+1;
  20.  
  21. if (EvaledResu < 27) {
  22.     set (Resu, EvaledResu);
  23.     // Agrega caracter.
  24.     E = Data.charAt(EvaledResu)+E;
  25.     Cursor = Cursor+1;
  26.     if (Cursor > CursorMaxPos) {
  27.         // Todos agregados.
  28.         gotoAndPlay (2);
  29.     } else {
  30.         // Volverá a agregar.
  31.     }
  32. } else {
  33.     // El char a agregar está fuera del límite.
  34.     set (Resu, 0);
  35.     E = E+Data.charAt(0);
  36.     Cursor = Cursor+1;
  37.     if (Cursor > CursorMaxPos) {
  38.         // Hay que agregar uno.
  39.         CursorMaxPos = CursorMaxPos+1;
  40.         set ("Char"+CursorMaxPos+"ID", 0);
  41.         E = E+Data.charAt(0);
  42.         gotoAndPlay (2);
  43.     } else {
  44.         // Hay que aumentar/agregar uno.
  45.         gotoAndPlay (4);
  46.     }
  47. }
  48.  
  49. Resu = "Char"+Cursor+"ID";
  50. EvaledResu = eval(Resu);
  51. gotoAndPlay (5);
Genera "frases" mientras las frases obtenidas (su valor) sean distintas a "OK".

Posiblemente se pueda simplificar el 2ndo programa, agradezco ideas también sobre eso.