CrLf

我从昨晚开始也在编写井字棋，前面都很简单，唯独到了ai部分没有了方向，若只是随机落子倒是简单，可是井字棋的特点是至少思考3层才不会忽略最优落子，但是我换了各种方法，可惜越写越乱，脑子已经成了浆糊
先把双人版的发上来，今天看到这个帖子才发现思路又和523066680兄撞车了（看来咱俩格外有缘...）：

@echo off&setlocal enabledelayedexpansion
set /a str=1492357816,xs=1,xs2=0
set hh=^


set $2=该位置已被使用!hh!
set $3=输入的不是纯数字!hh!
set .0=×
set .1=●
set other=1 2 3 4 5 6 7 8 9 
set b=1@2@3,4@5@6,7@8@9,1@4@7,2@5@8,3@6@9,1@5@9,3@5@7
set all=┏━┳━┳━┓!hh!┃1 ┃2 ┃3 ┃!hh!┣━╋━╋━┫!hh!┃4 ┃5 ┃6 ┃!hh!┣━╋━╋━┫!hh!┃7 ┃8 ┃9 ┃!hh!┗━┻━┻━┛
set th=	 
setlocal
for /l %%a in (1 1 31) do (
	for /f "tokens=1,2" %%b in ("!xs! !xs2!") do (
		call :again !errorlevel! !.%%b! !.%%c!
	)
	set /a "xs=^!xs*^!!errorlevel!+xs*!errorlevel!","xs2=^!xs"
	if !errorlevel!==99 (
		cls&echo !all!
		echo Game Over，!winner!获胜
		endlocal&setlocal
		pause
	)
)
:again
cls&echo !all!
echo;!$%1!!choice!
set winner=%2
set /p n=请输入方格位置
if defined %2%n% (exit /b 2) else (
	if "!all!"=="!all:%n% = !" (exit /b 3) else (
		set "all=!all:%n% =%2!"
		set choice=%choice% %n%
	)
	set %2%n%=!str:~%n%,1!
)
:test
for %%a in (!b:@^=+%2!) do (
	set /a "test+=(%2%%~a)/15"
)
if %test% gtr 0 exit /b 99
exit /b 0
复制代码

CrLf

ai部分没能解决多层剪枝的问题，一直没有成功对3层之内最优解的搜索，快疯了，实在不想继续写了...就这么算了吧，话说这若放在出题区可真是一个好题目