中国DOS联盟

有过这样一道题，某位朋友从C题目中选出来的。。但当时讨论时这题没有给出答案。
今天忽然想起来，发上来一起做做。。。
n个人围成1圈，顺序排号，从1到3开始报数，报到3的人退出这个圈子，问最后留下的那个人是原来的几号？

[ Last edited by pusofalse on 2008-7-8 at 12:51 PM ]

是n个人吗？没有具体的人数？

n 是用户输入的数字

仍不太明白题意
假设有 a b c d e f g h 8人
当数到3时，c 退出，然后该如何？又从1开始数起吗？若是，是从a开始数还是从d开始数？

数到3，c退出，然后接着从d开始数1，那么轮到f数到3，f退出。g接着数1，h是2，然后接着返回a，a又退出。第二次循环时b是1，d又推出。如此循环，直到只剩一个人，问这个人是原来的几号。。。

不知道对不对，初步测试是对的
: @echo off&setlocal enabledelayedexpansion set /a n=8 for /l %%a in (1 1 !n!) do set str=!str! a%%a call :loop !str! for %%a in (!str!) do set str=%%a echo.&echo 最后剩下的是原来的 !str:~1! 号 pause>nul :loop set /a m=0,h=0 set "tmp=" for %%i in (%*) do ( set /a m+=1 if !m! equ 3 ( call set str=%%str:!tmp! %%i=%%!tmp! for %%j in (!str!) do set /a h+=1 if !h! neq 2 call :loop !str! ) set tmp=!tmp! %%i ) goto :eof

[ Last edited by 26933062 on 2008-7-8 at 12:25 PM ]

有8个人时，留下的是原来的8号，而不是7号。

怎么会呢？
我手工数 8 个人都是剩下 7 号啊？

1 2 3 4 5 6 7 8
1 2 4 5 6 7 8
1 2 4 5 7 8
2 4 5 7 8
2 4 7 8
4 7 8
4 7
7

我写了一通，发现和前辈的竟然运行结果都一样。。。完全一样。。。
@echo off&setlocal enabledelayedexpansion set/p n=输入人数： :1 for /l %%a in (1 1 %n%) do set nn=!nn!%%a :2 for %%a in (%nn%) do ( set/a mm+=1 set %%a=!mm! if !mm! equ 3 set mm=0 ) for %%a in (%nn%) do if !%%a! neq 3 set m=!m!%%a for %%a in (%m%) do set/a x+=1 set nn=%m% if %x% neq 1 set x=0&set m=&goto 2 echo %m% pause

[ Last edited by pusofalse on 2008-7-8 at 12:52 PM ]

看了 8 楼 的回帖了吗？

SORRY

是我错了。。。
疏漏了一个。。。

[ Last edited by pusofalse on 2008-7-8 at 12:39 PM ]

1 2 3 4 5 6 7 8
1 2 4 5 7 8
2 4 7 8
4 7
7

著名的约瑟夫环问题

Originally posted by 26933062 at 2008-7-8 11:46:
不知道对不对，初步测试是对的

@echo off&setlocal enabledelayedexpansion
set /a n=8
for /l %%a in (1 1 !n!) do set str=!str! a%%a
call :loop !str!
for %%a in (!str!) d ...

虽结贴 还是有点疑问
刚试一下 发现数字大了不行
写一个也是超1856就不行
@echo off&setlocal enabledelayedexpansion set/a n=1856 for /l %%i in (1 1 !n!) do set str=!str! %%i call :lp "!str!" echo 最后剩下的是原来的 !str! 号 pause&exit :lp set "str=" for %%i in (%~1) do ( set/a m+=1,t=m%%3 if !t! neq 0 set str=!str! %%i&set/a p+=1 ) if !p! gtr 1 set p=&call:lp "!str!"
下面的也是勉强处理稍大一点
@echo off&setlocal enabledelayedexpansion set/a n=2673 for /l %%i in (1 1 !n!) do ( set/a m+=1,t=m%%3 if !t! neq 0 set str=!str! %%i ) call :lp "!str!" echo 最后剩下的是原来的 !str! 号 pause&exit :lp set "str=" for %%i in (%~1) do ( set/a m+=1,t=m%%3 if !t! neq 0 set str=!str! %%i&set/a p+=1 ) if !p! gtr 1 set p=&call:lp "!str!"

大数字不行的原因是 超出了变量的最大字符数。
看谁有心思挑战这个难关。。。