Hola Tomas, tambien soy cubano pero de otro lado del mundo espero esto te ayude, es algo sencillo pero te hará pensar
lcstrin="ABCD" DIMENSION astrin (LEN(lcstrin),1) FOR x=1 TO LEN(lcstrin) astrin(x)=SUBSTR(lcstrin,x,1) ENDFOR c1() c2() c3() c4() FUNCTION C1 ?astrin(1)+astrin(2)+astrin(3)+astrin(4) ?astrin(1)+astrin(2)+astrin(4)+astrin(3) ?astrin(1)+astrin(3)+astrin(2)+astrin(4) ?astrin(1)+astrin(3)+astrin(4)+astrin(2) ?astrin(1)+astrin(4)+astrin(2)+astrin(3) ?astrin(1)+astrin(4)+astrin(3)+astrin(2) ENDFUNC FUNCTION C2 ?astrin(2)+astrin(1)+astrin(3)+astrin(4) ?astrin(2)+astrin(1)+astrin(4)+astrin(3) ?astrin(2)+astrin(3)+astrin(1)+astrin(4) ?astrin(2)+astrin(3)+astrin(4)+astrin(1) ?astrin(2)+astrin(4)+astrin(1)+astrin(3) ?astrin(2)+astrin(4)+astrin(3)+astrin(1) ENDFUNC FUNCTION C3 ?astrin(3)+astrin(1)+astrin(2)+astrin(4) ?astrin(3)+astrin(1)+astrin(4)+astrin(2) ?astrin(3)+astrin(2)+astrin(1)+astrin(4) ?astrin(3)+astrin(2)+astrin(4)+astrin(1) ?astrin(3)+astrin(4)+astrin(1)+astrin(2) ?astrin(3)+astrin(4)+astrin(2)+astrin(1) ENDFUNC FUNCTION C4 ?astrin(4)+astrin(1)+astrin(2)+astrin(3) ?astrin(4)+astrin(1)+astrin(3)+astrin(2) ?astrin(4)+astrin(2)+astrin(1)+astrin(3) ?astrin(4)+astrin(2)+astrin(3)+astrin(1) ?astrin(4)+astrin(3)+astrin(1)+astrin(2) ?astrin(4)+astrin(3)+astrin(2)+astrin(1) ENDFUNC es una lastima que muchos crean que en cuba estamos en los 50 je je je je Saludos Ivan ________________________________ De: Tomás Corrales Lemoine <[email protected]> Para: GUFA List Member <[email protected]> Enviado: miércoles 14 de septiembre de 2011 16:11 Asunto: [GUFA] Algoritmo para permutaciones Alejandro, los americanos también nos dicen a nosotros que en Argentina lo único que sirve es el tango, pero nunca les hacemos caso y siempre nos mantenemos al tanto (¡por Internet!) de los avances del hermano pueblo que vio nacer al Che Guevara. Un abrazo. De:[email protected] [mailto:[email protected]] En nombre de Alejandro Paciotti Iacchelli Enviado el: Miércoles, 14 de Septiembre de 2011 01:39 p.m. Para: GUFA List Member Asunto: [GUFA] Algoritmo para permutaciones No tengo la menor idea, pero tu firma me sorprendió. ¿ trabajás en CUBA ? ¿ En un aeropuerto nuevo ? ¿ Y tienen internet y programan computadoras ? ¿ Cómo es eso?, las películas americanas que vi de Cuba dicen que UD se quedaron en el tiempo, que viven en la década del 50 donde no existían computadoras personales ! Saludos. De:[email protected] [mailto:[email protected]] En nombre de Tomás Corrales Lemoine Enviado el: Miércoles, 14 de Septiembre de 2011 04:15 p.m. Para: GUFA List Member Asunto: [GUFA] Algoritmo para permutaciones Hola colegas. ¿Alguien me podría ayudar con algún algoritmo para obtener todas las permutaciones posibles de un conjunto finito cualquiera? Por ejemplo, para el conjunto de 4 elementos ABCD las posibles permutaciones serían: 1. ABCD 2. ABDC 3. ACBD 4. ACDB 5. ADBC 6. ADCB 7. BACD 8. BADC 9. BCAD 10. BCDA 11. BDAC 12. BDCA 13. CABD 14. CADB 15. CBAD 16. CBDA 17. CDAB 18. CDBA 19. DABC 20. DACB 21. DBAC 22. DBCA 23. DCAB 24. DCBA Es decir, la cantidad de permutaciones sería igual al factorial de la cantidad de elementos del conjunto. En este caso 4! = 4 x 3 x 2 x 1 = 24. Agradecería cualquier sugerencia. Gracias. Saludos Ing. Tomás Corrales Lemoine -- Aeropuerto Internacional Frank País García de Holguín. -- Aeropuerto Internacional Frank País García de Holguín. -- Aeropuerto Internacional Frank País García de Holguín.
