约瑟夫环.txt

来自「s11ss写的批处理。他把很多C语言中经典的例子都用批处理实现了」· 文本 代码 · 共 42 行

@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

========================================

@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