[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
效率很低:
  1. @echo off
  2. :bgn
  3. Setlocal Enabledelayedexpansion
  4. set /p in=请输入:
  5. if not defined in goto :eof
  6. echo.
  7. set /a n=in-1,m=0
  8. :agn
  9. set /a m+=1,ans=0&set "ans_str="
  10. for /l %%a in (%m% 1 %n%) do (
  11.    set /a ans+=%%a
  12.    set "ans_str=!ans_str!%%a+"
  13.    if !ans! gtr %in% (
  14.       goto :agn
  15.    ) else (
  16.       if "!ans!"=="%in%" (
  17.          set ans_str=!ans_str:~,-1!
  18.          echo.!in!=!ans_str!&echo.
  19.          goto :agn
  20.       )
  21.    )
  22. )
  23. endlocal
  24. goto :bgn
复制代码
1

评分人数

    • pusofalse: 感谢参与,并学习代码。PB + 6

TOP

返回列表