Inicio de sesión
Navegación
Actualmente hay 0 usuarios y 12 invitados en línea.
HOLA
Integró: 17/08/2003
Envíos: 36
MonedasHP: 0
Gu1llermo 
HOLA
Dom, 24/07/2005 - 22:11
Saludos a todos, en ésta oportunidad les tengo un desafío interesante, la idea es la siguiente:
Dado un string en el nivel 1 de la pila:
1: "HOLA"
el programa tiene que regresar:
<br /> 5: "* * *** * *** "<br /> 4: "* * * * * * *"<br /> 3: "***** * * * *****"<br /> 2: "* * * * * * *"<br /> 1: "* * *** ***** * *"
Fijense que regresa 5 strings en la pila que dicen el mensaje que le escribimos como dato, cada caracter es de 5x5 asteriscos y cada letra vá separada por un espacio en blanco sencillo.
Los caracteres válidas son:
A<br /> " *** "<br /> "* *"<br /> "*****"<br /> "* *"<br /> "* *"</p> <p>B<br /> "**** "<br /> "* *"<br /> "**** "<br /> "* *"<br /> "**** "</p> <p>C<br /> " ****"<br /> "* "<br /> "* "<br /> "* "<br /> " ****"</p> <p>D<br /> "**** "<br /> "* *"<br /> "* *"<br /> "* *"<br /> "**** "</p> <p>E<br /> "*****"<br /> "* "<br /> "*****"<br /> "* "<br /> "*****"</p> <p>F<br /> "*****"<br /> "* "<br /> "**** "<br /> "* "<br /> "* "</p> <p>G<br /> " ****"<br /> "* "<br /> "* ***"<br /> "* * "<br /> " *** "</p> <p>H<br /> "* *"<br /> "* *"<br /> "*****"<br /> "* *"<br /> "* *"</p> <p>I<br /> "*****"<br /> " * "<br /> " * "<br /> " * "<br /> "*****"</p> <p>J<br /> " ****"<br /> " *"<br /> " *"<br /> " *"<br /> "**** "</p> <p>K<br /> "* *"<br /> "* * "<br /> "*** "<br /> "* * "<br /> "* *"</p> <p>L<br /> "* "<br /> "* "<br /> "* "<br /> "* "<br /> "*****"</p> <p>M<br /> "* *"<br /> "** **"<br /> "* * *"<br /> "* *"<br /> "* *"</p> <p>N<br /> "* *"<br /> "** *"<br /> "* * *"<br /> "* **"<br /> "* *"</p> <p>O<br /> " *** "<br /> "* *"<br /> "* *"<br /> "* *"<br /> " *** "</p> <p>P<br /> "**** "<br /> "* *"<br /> "**** "<br /> "* "<br /> "* "</p> <p>Q<br /> " *** "<br /> "* *"<br /> "* *"<br /> "* *"<br /> " ****"</p> <p>R<br /> "**** "<br /> "* *"<br /> "**** "<br /> "* * "<br /> "* *"</p> <p>S<br /> " ****"<br /> "* "<br /> " *** "<br /> " *"<br /> "**** "</p> <p>T<br /> "*****"<br /> " * "<br /> " * "<br /> " * "<br /> " * "</p> <p>U<br /> "* *"<br /> "* *"<br /> "* *"<br /> "* *"<br /> " *** "</p> <p>V<br /> "* *"<br /> "* *"<br /> "* *"<br /> " * * "<br /> " * "</p> <p>W<br /> "* *"<br /> "* *"<br /> "* *"<br /> "* * *"<br /> " * * "</p> <p>X<br /> "* *"<br /> " * * "<br /> " * "<br /> " * * "<br /> "* *"</p> <p>Y<br /> "* *"<br /> " * * "<br /> " * "<br /> " * "<br /> " * "</p> <p>Z<br /> "*****"<br /> " * "<br /> " * "<br /> " * "<br /> "*****"</p> <p>Espacio en blanco<br /> " "<br /> " "<br /> " "<br /> " "<br /> " "
Invito a todos a participar, recuerden que pueden postear sus soluciones cuando quieran ya que la idea es aprender y compartir y para eso no hay fecha de expiración.
Para facilitar la revisión de los códigos recomiendo que a la hora de postear sus soluciones transformen el programa en un string y lo pequen aquí indicando qué emulador usaron (48 ó 49), para de esa forma solo tener que copiar y pegar nosotros en nuestro emulador y de allí pasarlo a nuestra hp si queremos.
Como pudieron observar el programa arrojará 5 strings en la pila equivalente al mensaje dado como entrada, para unir esos strings y verlo con un visor de textos pueden usar el siguiente código:
« 5 ?LIST "
" ADD …LIST
»
Saludos
PD: Cualquiera que tenga una idea para los Minicampeonatos, también conocidos como optimizaciones de código, publiquenla, sólo traten de ser lo más explicitos posibles, de todas formas si alquién no lo entiende muy bien simplemente pregunta y listo!.
Otros temas de interes
Integró: 20/05/2003
Envíos: 220
MonedasHP: 236
Edwin
Calc: HP48G/GX
« { "" "" "" "" "" } { { " " " " " " " " " " } { " *** " "* * " "***** " "* * " "* * " }
{ "**** " "* * " "**** " "* * " "**** " } { " **** " "* " "* " "* " " **** " }
{ "**** " "* * " "* * " "* * " "**** " } { "***** " "* " "***** " "* " "***** " }
{ "***** " "* " "**** " "* " "* " } { " **** " "* " "* *** " "* * " " *** " }
{ "* * " "* * " "***** " "* * " "* * " } { "***** " " * " " * " " * " "***** " }
{ " **** " " * " " * " " * " "**** " } { "* * " "* * " "*** " "* * " "* * " }
{ "* " "* " "* " "* " "***** " } { "* * " "** ** " "* * * " "* * " "* * " }
{ "* * " "** * " "* * * " "* ** " "* * " } { " *** " "* * " "* * " "* * " " *** " }
{ "**** " "* * " "**** " "* " "* " } { " *** " "* * " "* * " "* * " " **** " }
{ "**** " "* * " "**** " "* * " "* * " } { " **** " "* " " *** " " * " "**** " }
{ "***** " " * " " * " " * " " * " } { "* * " "* * " "* * " "* * " " *** " }
{ "* * " "* * " "* * " " * * " " * " } { "* * " "* * " "* * " "* * * " " * * " }
{ "* * " " * * " " * " " * * " "* * " } { "* * " " * * " " * " " * " " * " }
{ "***** " " * " " * " " * " "***** " } }
DO 3 PICK NUM 64 - DUP ABS + 2 / 1 + OVER SWAP GET ROT SWAP ADD ROT TAIL SWAP ROT 3 PICK NUM NOT
UNTIL
END ROT DROP2 EVAL
»
Tamaño: 1754 Bytes
La cuestión en la vida no es saber mucho, sino olvidarse de poco.
Integró: 22/07/2005
Envíos: 1
MonedasHP: 0
GuidoXL
hola adictos esto de los campeonatos esta muy bueno espero que se presente otro urgente, bueno con Gu1llermo para el comando SCROLL bueno quisiera que seas mas claro para ver si por ahi me de cuenta de lo que quieres decir... :hp:
Integró: 05/06/2003
Envíos: 343
MonedasHP: 186
GkEnte
Calc: HP50
| ROM:pasé por aquí, pero ya lo pasado pasado.
Nada, simplemente para felicitar a Guillermo, Oscar y a todos los que hacen esto. Soy fan de ustedes ;=)
- GaaK -
Integró: 17/08/2003
Envíos: 36
MonedasHP: 0
Gu1llermo
Gracias Gaak, es agradable leer un mensaje así 
, todo esto es posible con la participación toooooodos nosotros y como lo que estamos haciendo nos gusta, igual no cobramos dinero pero recibimos satisfacción en hacerlo 
y por eso hacemos lo mejor que podemos
Ok, regresando a lo que minicampeonatos se refiere me gustaría que alguién publicase un problema, un reto, un desafío ó simple diversión para que participemos y aprendamos, yo no e participado posteando soluciones (confieso que me han gustado todas las soluciones que han posteado a los otros ejercicios propuestos) porque he estado un poco ocupado en el trabajo, pero en lo que se me ocurra otra idea la postearé, ojalá y sea pronto :idea:
Bye...
GuidoXL disculpa yo era el que hizo algo mal, porque le quité la última línea de tu programa donde dice:
5 ?LIST
SCROLL
y le coloqué:
5 ?LIST "
" ADD …LIST
para unir los strings y luego de aplicarle el comando SCROLL me lo desordenaba, pero era porque modifiqué tu programa original que cuando aplica el comando SCROLL no lo desordena solamente hay que darle a TEXT para ver el resultado, estaba probando el programa otra vez y cuando dejo un espacio en blanco, por ejemplo: "GUIDOXL 2005" como entrada regresa: "GUIDOXL ", desaparece el 2005, podrías revisar esa parte.
Con respecto a otro desafío, cualquier otra persona que tenga una idea puede postearla para que participemos en la solución.
Confieso que esto es lo mejor, es interesante como aprendemos compartiendo estas ideas y dandonos cuenta de nuestros errores, de como piensan los demás, en fin :idea: buenísimo.
Guillermo Núñez
(Todo lo dicho es en RPN!)