强大的批处理 (2) Fibonacci函数

小无聊一下，不过真的很强大……

@ECHO OFF

SETLOCAL

SET X=10

CALL :Fib %X% Y
ECHO Fib^(%X%^)=%Y%
GOTO :EOF

:Fib [In]X [Out]Result
SETLOCAL
SET A=%1
SET D=1
SET E=0

IF %A% LEQ 1 (
    GOTO FibRet
)

SET /A B=%A%-1
SET /A C=%A%-2
CALL :Fib %B% D
CALL :Fib %C% E

:FibRet
ENDLOCAL & SET /A %2=%D%+%E% & GOTO :EOF

输出是“Fib(10)=89”

Related Posts

1. 强大的批处理 (3) 判断目录在%Path%中
2. 强大的批处理 (4) 使用数组
3. 强大的批处理 (1) 字符串截取
4. 检测本机安装的MSXML的版本的方法