El Comando DESCAD
- Inicie sesión o regístrese para enviar comentarios
Hola mis estimados Amigos AdictosHP!!!
En primer lugar saludos a todos Uds. y decirles que Dios los bendiga siempre...
Dicho esto, ahora les propongo un nuevo desafío:
Realizar el código UserRPL más rápido y más pequeño para implementar el Comando DESCAD. Este comando lleva su nombre por la acción que realiza, esto es, DESordenar CADena.
El programa debe aceptar como argumento de entrada 1 solo objeto String (cadena de caracteres) de cualquier longitud y a cada ejecución del comando debe devolver como salida 1 solo objeto String (cadena de caracteres) que sea la desordenación aleatoria de todos y cada uno de los caracteres que conformaron el objeto String (cadena de caracteres) ingresado como argumento de entrada el comando.
Bueno, para que todo quede claro, les dejo un ejemplo de ejecución del Comando DESCAD:
Ejemplo de Ejecución del Comando DESCAD
--------------------------------------------
Pila antes de ejecutar el comando DESCAD
--------------------------------------------
2:
1: "ESTA LINEA DE TEXTO SE AUTODESTRUIRA EN UN MOMENTO..."
--------------------------------------------
Pila después de ejecutar el comando DESCAD
--------------------------------------------
2:
1: "X. IATNS . ETU AL DTEUIRR NSSEAA MNOUE.TEEOTETOM"
Obviamente, como el resultado del desordenamiento de caracteres producido por el Comando DESCAD es absolutamente aleatorio, Uds. seguramente no tendrán de primera instancia la misma salida que les presenté en el Ejemplo de Ejecución del Comando DESCAD. Pero estoy seguro que si ejecutan varias veces el Comando DESCAD con el mismo objeto String (cadena de caracteres) "ESTA LINEA DE TEXTO SE AUTODESTRUIRA EN UN MOMENTO..." podrán obtener como salida el objeto String (cadena de caracteres) "X. IATNS . ETU AL DTEUIRR NSSEAA MNOUE.TEEOTETOM".
Bueno, eso es todo mis queridos Amigos AdictosHP...
Ahora a pensar y proponer nuestras soluciones más creativas e ingeniosas...
- Inicie sesión o regístrese para enviar comentarios
Otros temas de interes
- como hacer una barra de menus ??
- ROM 2.10-7 Spreadsheet & Geometry manuales y biblioteca.
- Ayuda con Raices
- Nueva Calculadora HP?? HP 39gII spécification
- [PROYECTOS] EoEiProEngLib, MathEngProLib, EquatnEngProLib & and HP50GNKLib
- ayuda con integral exponencial
- programa tipo excell que permita introducir formulas en las tablas
- como aprender tantos comandos en SYSTEM?
- [PROYECTO] Universal Font Library for HP50G CAS para recuperar "Hello World" 3 ->GROB de la HP48GX (1994)
Holas yo propongo:
«
DUP TYPE 2. == IF
THEN
DUP SIZE 1 - SWAP
1 PICK3 START
DUP HEAD SWAP TAIL
PICK3 RAND * CEIL
DUP2 6 PICK SUB UNROT
1 - 1 SWAP SUB ROT + +
NEXT
NIP
ELSE
END
»
- Inicie sesión o regístrese para enviar comentarios
Un saludo.
Aqui otro codigo.
« DUP TAIL
SWAP HEAD
SWAP
RAND
SWAP
DUP SIZE 1 SWAP
START
DUP TAIL SWAP HEAD
4 ROLL SWAP 4 ROLL
RAND DUP ROT
<
« UNROT + »
« UNROT SWAP + »
IFTE
SWAP ROT
NEXT
DROP2
»
- Inicie sesión o regístrese para enviar comentarios













