中国DOS联盟

@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