Dream for future
强大的批处理 (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
| 打印文章 | 这篇文章由Shuhai Shen于2009/03/04 21:07发表在语言。你可以订阅RSS 2.0 也可以发表评论或引用到你的网站。 |
简体中文