猫吃鼠.txt

s11ss写的批处理。他把很多C语言中经典的例子都用批处理实现了

@echo off
setlocal enabledelayedexpansion
::::::::::::::::::::::::::::      猫吃鼠      ::::::::::::::::::::::::::::
::::::::::::::::::::::::::::{s11ss  2007-9-24}::::::::::::::::::::::::::::
echo 问题：
echo x只老鼠围成一圈，花猫从第一只开始数，数到y或y的倍数就吃掉，问每一次吃掉的是站在第几个位置上的老鼠？
set/p x=请输入x的值：
set/p y=请输入y的值：
for /l %%i in (1,1,%x%) do (
        set n%%i=False
)
set/a r=%x%
set/a xx=%x%+1
set/a seq=1
set/a counter=1
set f=
set /p w=是否将解决方案写入到文件%x%_%y%_CatEatRat.txt?(y/n):
echo 计算中...
if not %w% equ y (if not %w% equ Y (goto :main)) 
cd.>%x%_%y%_CatEatRat.txt
set f=^>^>%x%_%y%_CatEatRat.txt
:main
%f% echo 第 * 次吃掉的是站在第 * 个位置上的老鼠:
:out
if !r! gtr 0 (
        set/a flag=1
:in
        if !flag! leq %y% (
                if !n%seq%! equ False (set/a flag+=1)
                if %seq% equ %xx% set/a seq=0
                set/a seq+=1
                goto :in
        )
        set/a seq-=1
        set n%seq%=True
        set/a r-=1
        
%f% echo    %counter%==================%seq%
        set/a counter+=1
        goto :out
)
echo 方案已解决。
echo 按任意键退出...
pause>nul