Mensajes

Genial binary_death. Trataré de testearlo

Yo también estoy implementando el tipo de dato array-fake (unidimensional) aunque voy poquito a poco. Fake porque se basa simplemente en variables estáticas   pero ya va tomando forma.

Hace años un compi mío que también estaba en IH, hizo que batch trabajara con decimales, pero no recuerdo cómo ni qué exactamente... a ver si encuentro el código...

A ver si hoy me pongo con el TAD array y lo posteo...

Salud3t3S

Muy bueno el link, ahora tengo mas data para seguir probando, gracias!

También estaría bien que buscaras algún tutorial sobre Nesting.

Pues no estaría mal ofuscar el código.

[26 · 26 · 26 · ... · 26 (x veces) = 26x = ∏xi=1 26]

Entonces, como son cadenas de longitud x...

26 · 26 · 26 · ... · 26 (x veces) = 26^x = ∏^x_i=1 26 (x∈Ν)

combinaciones totales

[VR(26,26) = 2626 = 6156119580207157310796674288400203776]

Teniendo en cuenta que son variaciones con repetición de 26 elementos cogidos de 26 en 26...

VR(26,26) = 26²⁶ = 6156119580207157310796674288400203776 combinaciones posibles...

Aunque en la imagen aparecen cadenas de 4 caracteres lo que equivale a...

VR(26,4) = 26⁴ = 456976 combinaciones posibles...

En definitiva, ¿cadenas de qué longitud? ¿O cadenas de 1..26?

Código (DOS) [Seleccionar] Expandir

::Edad Lunar Batchiano ;)
@echo off

set /p "dia=Dia: "&set /p  "mes=Mes: "&set /p "anho=Anho: "

::Epacta con número áureo
set /a Epacta=((((anho + 1) %% 19) - 1) * 11) %% 30

if %mes% GEQ 3 (
set /a MesesDesdeMarzo=%mes%-3
) else if %mes% EQU 2 (
set /a MEsesDesdeMarzo=1
) else (
set /a MEsesDesdeMarzo=0
)

::Edad Lunar
set /a EdadLunar = (Epacta + dia + MesesDesdeMarzo) %% 30
echo EdadLunar: %EdadLunar%

::Fase Lunar
set "FaseLunar=Novilunio,Cuarto creciente,Plenilunio,Cuarto menguante"
if %EdadLunar% LSS 7 (
echo %FaseLunar:~0,9%
) else (
if %EdadLunar% LSS 14 (
echo %FaseLunar:~10,16%
) else (
if %EdadLunar% LSS 21 (
echo %FaseLunar:~27,10%
) else (
if %EdadLunar% LSS 29 (
echo %FaseLunar:~38,16%
) else (
echo %FaseLunar:~0,9%
)
)
)
)
pause&exit/b


Solo una pequeña anotación, Sobre esto que explicó Batchiano:

Si la variable es una cadena vacía, No es una variable definida, Por lo tanto solo es necesario verificar si se ha definido (if not defined...)

Ejemplo:

Código (dos) [Seleccionar] Expandir

@Echo OFF
Set "var=asfasf"
Set "var="
if not defined VAR (Pause)

Saludos!.

Ups, me colé! xD Creí que tenía un valor basura.

if not defined %password% goto menu. Creo que es asi.

Saludos

Verificamos si una variable no ha sido definida previamente.

Código (dos) [Seleccionar] Expandir

if not defined variable () else ()

Solo hay que colocar el identificador de la variable, no acceder a su contenido.

Verificamos si la variable es una cadena vacía.

Código (dos) [Seleccionar] Expandir

if "%variable%" EQU "" () else ()

Saludos.

Si deseas aprender Pascal, Free Pascal -> http://www.youtube.com/playlist?list=PL8B762B052A22636C&feature=view_all

Código (dos) [Seleccionar] Expandir


exit /b