pusofalse

一个链环~ 让我想起约瑟夫环的问题。

pusofalse

先来抛砖：

@echo off
:loop
cls&setlocal enabledelayedexpansion
for %%a in (一 二 三 四 五 六 天) do set/a n+=1&set ".!n!=%%a"
set /p var=几天前/后? 
set/a s=var, x=4
set/a var%%=7
if "%var:~,1%" equ "-" (
   set "op=+"&set "str=后"
   set /a m=8,y=1
   ) else (
   set "op=-"&set "str=前"
   set /a m=0,y=7
)
for /l %%a in (1 1 %var:-=%) do (
      set/a x%op%=1
      if !x! equ %m% set x=%y%
)
echo %s:-=% 天%str%是星期!.%x%!
endlocal
pause>nul&goto loop
复制代码

[ 本帖最后由 pusofalse 于 2008-10-16 21:57 编辑 ]

pusofalse

回随风兄，代码已经修改~

pusofalse

时间差问题，我修改了两次代码，第一次修改时，你在测试我第一次贴出的未修改的代码，存在效率问题。第二次修改时你在测试我修改一次后的代码。现在修改好了。