題目：
有二十九個(gè)女生（分別用1－29號(hào)來(lái)稱呼）圍成一圈玩報(bào)數(shù)游戲，規(guī)則是這樣的：從1開(kāi)始數(shù)數(shù)，當(dāng)數(shù)到3的這個(gè)人就退出游戲，而她后面的人接著從1數(shù)。。。如此一直到最后剩下一個(gè)人，現(xiàn)在知道最初是從13號(hào)女生開(kāi)始的游戲，問(wèn)最后剩下的會(huì)是第幾號(hào)女生？
要求：
1 用批處理解答
2 代碼簡(jiǎn)潔高效
3 代碼通用且不生成臨時(shí)文件
加分原則：
以思路為重（如思路獨(dú)特，請(qǐng)簡(jiǎn)要說(shuō)明）
完全符合要求的加10分
已有兩套解決方案，見(jiàn)3樓more和6樓ieutk版主的代碼，但個(gè)人認(rèn)為這兩套方案均不完美（見(jiàn)本人的跟貼評(píng)述），期
待完美方案的出現(xiàn)，大家加油了?。?！
注：約瑟夫問(wèn)題
約瑟夫問(wèn)題是個(gè)有名的問(wèn)題：N個(gè)人圍成一圈，從第一個(gè)開(kāi)始報(bào)數(shù)，第M個(gè)將被殺掉，最后剩下一個(gè)，其余人都將被殺掉。例如N=6，M=5，被殺掉的人的序號(hào)為5，4，6，2，3。最后剩下1號(hào)。
more：
復(fù)制代碼 代碼如下:
@echo off
set "str=13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 1 2 3 4 5 6 7 8 9 10 11 12"
:again
for /f "tokens=1,2,4*" %%a in ("%str%") do (
if not "%%c"=="" (set "str=%%c %%d %%a %%b"goto :again) else (echo %%bpauseexit)
)
ieutk：
復(fù)制代碼 代碼如下:
@echo off
setlocal enabledelayedexpansion
for /l %%a in (12 -1 1) do set "str= %%a !str!"
for /l %%a in (29 -1 13) do set "str= %%a !str!"
:main
set "ie=0"
for %%a in (%str%) do set /a ie+=1
if %ie% neq 1 (
for %%a in (%str%) do (
set /a num+=1
if !num! equ 3 (
set "num=0"
set "str=!str: %%a =!
)
)
goto main
)
echo %str%
pause
batman：
復(fù)制代碼 代碼如下:
@echo offsetlocal enabledelayedexpansion
for /l %%a in (13,1,29) do set "str=!str! #%%a#"
for /l %%a in (1,1,12) do set "str=!str! #%%a#"
:lp
for %%a in (!str!) do (
set /a n+=1
if !n! equ 3 set "str=!str: %%a=!"set /a n=0
)
for /f "tokens=2" %%a in ("%str%") do if "%%a" neq "" goto lp
echo 最后剩下的是%str:#=%號(hào)pause>nul
您可能感興趣的文章:- 一個(gè)報(bào)數(shù)游戲js版(約瑟夫環(huán)問(wèn)題)
- 約瑟夫環(huán)問(wèn)題(數(shù)組法)c語(yǔ)言實(shí)現(xiàn)
- C++循環(huán)鏈表之約瑟夫環(huán)的實(shí)現(xiàn)方法
- 詳解約瑟夫環(huán)問(wèn)題及其相關(guān)的C語(yǔ)言算法實(shí)現(xiàn)
- java 實(shí)現(xiàn)約瑟夫環(huán)的實(shí)例代碼
- python超簡(jiǎn)單解決約瑟夫環(huán)問(wèn)題
- php解決約瑟夫環(huán)示例
- 深入理解約瑟夫環(huán)的數(shù)學(xué)優(yōu)化方法
- 約瑟夫環(huán)問(wèn)題的PHP實(shí)現(xiàn) 使用PHP數(shù)組內(nèi)部指針操作函數(shù)
- javascript循環(huán)鏈表之約瑟夫環(huán)的實(shí)現(xiàn)方法
