Foro de elhacker.net

@echo off
setlocal enabledelayedexpansion
echo. Introduzca una secuencia de enteros (separados por espacios)
echo. para verificar si pertenencen a la sucesion de Fibonacci.
echo.
set /p seq=Secuencia:
set /a i=0
set "SALIDA="
:seq
if "!seq:~%i%,1!" NEQ "" (
	if "!seq:~%i%,1!" NEQ " " (
		set num=!num!!seq:~%i%,1!
	) else (
		call :NUMERO !num!
		set "num="
	)
	set /a i+=1
	goto seq
) else (
	call :NUMERO !num!
)
echo Salida:  !SALIDA!
pause&exit/b

:NUMERO
set /a NUMERO=%1
set /a inc=0
:GS
call :SucesionFibonacci !inc!
if !NUMERO! GTR !f1! (set /a inc+=1 & goto GS)
if !NUMERO! EQU !f1! (
	set SALIDA=!SALIDA! 1
) else (
	set SALIDA=!SALIDA! 0
)

:SucesionFibonacci
set /a N=%1
set /a f0=0
set /a f1=1
for /l %%S in (1,1,!N!) do (
	set /a f=!f0!+!f1!
	set /a f0=!f1!
	set /a f1=!f!
)

@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