happy886rr

@echo off&setlocal enabledelayedexpansion
mode con cols=100 lines=25
set "Fa[1]=00000001"
set "Fb[1]=00000001"
for /l %%i in (2 1 125) do (
	set "Fa[%%i]=00000000"
	set "Fb[%%i]=00000000"
)
for /l %%n in (3 1 5000) do (
	set add=0&set "F="
	set/a CYC=%%n/5+8
	for /l %%i in (1 1 !CYC!) do (
		set/a Fn[%%i]=1!Fa[%%i]!+1!Fb[%%i]!
		set/a tmp=Fn[%%i]+add
		set Fa[%%i]=!Fb[%%i]!
		set Fb[%%i]=!tmp:~1!
		if not "!Fb[%%i]!"=="00000000" (set F=!Fb[%%i]!!F!)
		if !tmp! geq 300000000 (set add=1) else (set add=0)
	)
	for /l %%l in (1 1 7) do (
		if "!F:~0,1!"=="0" (set F=!F:~1!)
	)
	echo !F!
)
复制代码