批处理解约瑟夫环应用题代码
作者 佚名
来源 批处理
浏览
发布时间 2013-07-09
| 题目： 有二十九个女生（分别用1－29号来称呼）围成一圈玩报数游戏，规则是这样的：从1开始数数，当数到3的这个人就退出游戏，而她后面的人接着从1数。。。如此一直到最后剩下一个人，现在知道最初是从13号女生开始的游戏，问最后剩下的会是第几号女生？ 要求： 1 用批处理解答 2 代码简洁高效 3 代码通用且不生成临时文件 加分原则： 以思路为重（如思路独特，请简要说明） 完全符合要求的加10分 已有两套解决方案，见3楼more和6楼ieutk版主的代码，但个人认为这两套方案均不完美（见本人的跟贴评述），期 待完美方案的出现，大家加油了！！！ 注：约瑟夫问题 约瑟夫问题是个有名的问题：N个人围成一圈，从第一个开始报数，第M个将被杀掉，最后剩下一个，其余人都将被杀掉。例如N=6，M=5，被杀掉的人的序号为5，4，6，2，3。最后剩下1号。 more： 复制代码 代码如下: @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 %%b&pause&exit) ) ieutk： 复制代码 代码如下: @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： 复制代码 代码如下: @echo off&setlocal 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:#=%号&pause>nul |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 批处理实现一行内容分行输出的代码下一篇: 用批处理查找字符数最多的文本行的代码
关于批处理解约瑟夫环应用题代码的所有评论
