Mensajes

Pues aquí dejo lo que hice ahora:

Código [Seleccionar] Expandir


@Echo Off
setlocal enableextensions enabledelayedexpansion

set/p "w_n=Palabras a generar >> "
set/p "l_n=Longitud maxima >> "
set/p "f_n=Fichero a comparar >> "

if not exist "%f_n%" exit /b 1

for /l %%_ in (1,1,%w_n%) do (
set/a "len=(!random! %% %l_n%) + 1"
call :_GenRan !len!
1>nul 2>&1, (findstr /r /i "\<!r_s!\>" "%f_n%") && (
echo. Encontrada: !r_s!.
) || (
echo. No encontrada: !r_s!.
)
)
pause 1>nul & exit /b 0

:_GenRan
set "chr_lst=abcdefghijklmnopqrstuvwxyz" & set "r_s="
for /l %%_ in (1,1,%~1) do (
set/a "pos=!random! %% 26"
call set "r_s=!r_s!%%chr_lst:~!pos!,1%%"
)
goto :eof


Quiero más retos   y un poco más complicados. Creo que está un poco exagerada la dificultad en muchos casos (me refiero al número).

Por ejemplo el cifrado caesar tiene un 7/10, yo tal vez diría que tendría que tener un 6.
Tened en cuenta que 10 es algo complicadísimo, casi imposible de conseguir. Un 7 se acerca demasiado a ese 10.

Este reto con un 4 creo que va bien. También el de fibonacci, se merece ese 7. Pero otros, como Hex2Dec (¿un 3, y este un 4?) le llega un 2.
Al de GetIP le llega un 3 (vamos, es más complicado este reto que obtener la IP).
Al virus HELLO le llega un 4, como a este.

Lo que quiero decir es que no están en proporción. Hay retos que con un 4 son más fáciles que retos con un 2.

Es una sugerencia al moderador encargado de estos retos. ¿Elektro, are you listening to me?  

Decir que el aborto durante el primer mes de embarazo es un asesinato equivale a decir que si te haces una paja estás matando a millones de niños.

Algo tan estúpido sólo lo podría decir la iglesia 

100% a favor del aborto. Las mujeres no tienen por qué tener un bebé si no quieren por cualquier razón. Ahora, la cosa cambia en un estado de embarazo avanzado, pero precisamente, si esperan a eso, ya es irresponsabilidad y ahí pierden todo derecho.

Mi código para este reto:

Código [Seleccionar] Expandir


@Echo Off
mode con cols=90 lines=20
more/c<nul
echo: -Tablas de multiplicar- & echo+
for /l %%y in (1,1,10)do (
for /l %%x in (1,1,10)do set/a.=%%x*%%y&<nul,call set/p"=%%x*%%y=%%.%% "
echo+
)
pause 1>nul & exit


Mi solución a este reto:

Código [Seleccionar] Expandir


@echo off
setlocal enabledelayedexpansion

set/p "num=Cifra >> "

set/a hst=0,lst=9
set "evn_lst=" & set "rev_lst="

for /f "tokens=* eol=" %%_ in (
'"cmd /u /c echo+%num%|more"'
) do (
set "rev_lst=%%_!rev_lst!"
if %%_ GTR !hst! set/a hst=%%_
if %%_ LSS !lst! set/a lst=%%_
set/a pry=%%_ %% 2
if !pry! EQU 0 set "evn_lst=!evn_lst!%%_"
)
more/c<nul
echo: Cifra: %num% ^| Invertido: %rev_lst% ^| Mayor: %hst% ^| Menor: %lst% ^| Pares: %evn_lst%
pause 1>nul & exit


Otro más para la colección. A ver si hoy los termino todos ya 

Pues el título de la ventana es el título de la ventana.
Abre la ventana de tu programa y mira cuál es su título.
Si abres la calculadora, verás que el título es: "Calculadora"
Si abres el bloc de notas, verás que el título es: "Sin título: Bloc de notas" (al menos, en win7).

Para no arriesgarte, si quieres usando cmdow o nircmd puedes cambiar el título a la ventana (no sea caso que por X razón el programa la cambie en tiempo de ejecución y no te funcione). Sólo tienes que mirar la ayuda de esos comandos.

Se puede arreglar el límite, al fin y al cabo. Sería sólo partir la lista de números en trozos.
Eso se lo dejo a cada uno. Yo este script lo hice un día que no tenía la tabla a mano y necesitaba trabajar con ellos 

Hubiera sido más emocionante Dec2Hex, pero qué le vamos a hacer  
No sé, quiero solucionar todos los retos uno por uno, pero es que este está más que solucionado...

Código [Seleccionar] Expandir


@cmd/c set/a 0x%~1


Comando listo. Lo guardas como .bat y lo llamas desde la shell de comandos.
Devuelve cualquier valor hexadecimal en decimal.

[Creo, sin lugar a dudas, que he batido el record en extravagancia]

Creo, sin lugar a dudas, que he batido el record en extravagancia  

Código [Seleccionar] Expandir


@echo off
set.=echo&set "_=%%random:~-1%%"
find "::_%.:~,1%nd"<%0>nul&&goto:__
(%.%.&%.%.^(&for,/l,%%.,in,(1,1,20)do,%.%.%.%.%_%%_%%_%
%.%.^)^|sort&%.%.1^>nul,pause&%.%.::_%.:~,1%nd)>>%0
:__


Tiene pasta como para vivir 100 vidas. ¿Para qué querría seguir manteniendo facebook? Únicamente por orgullo, dignidad o competitividad, pero si le da igual porque ya se cansó, pues lo enviará a la *****.

Mejor, porque facebook es escoria. Lo malo es que aparecen escorias nuevas.

Aquí está mi solución:

Código [Seleccionar] Expandir


@Echo Off
setlocal enableextensions enabledelayedexpansion
set /p "seq=-Input  >> "
set "b_s=" & set /a bgr=0
for %%_ in (%seq%) do if %%_ GTR !bgr! set/a bgr=%%_
call:_fib %bgr%
for %%_ in (%seq%) do (
1>nul 2>&1, (echo:%f_s%|find "$%%_$") && (
set "b_s=!b_s! 1"
) || (
set "b_s=!b_s! 0"
)
)
echo:-Output ^>^>%b_s%
pause 1>nul & exit
:_fib
set "f_s=$1$"
set/a f_n=1,s_n=2
for /l %%_ in (1,1,%~1) do (
set/a n_n=!f_n!+!s_n!
set/a f_n=!s_n!,s_n=!n_n!
set "f_s=!f_s!$!n_n!$"
if !n_n! geq %~1 goto :eof
)
goto :eof


Creo poder hacer un método más rápido... pero no me lo permiten mis escasos conocimientos de matemáticas (¡que aunque se me den bien, todavía recién acabé 4º de ESO!).
Posteé en un foro una duda relacionada, si me la solucionan, podré hacer un algoritmo más eficiente. Mientras, queda esto