中国DOS联盟

abcdabcdabcdabcd
abcdabcdabcdbcd
abcdabcdbcdbcd
abcdabcdbcbcd
abcdacdbcbcd
bcdacdbcbcd
bcdacdcbcd
bcdaccbcd
bcdacbcd
bcdacbd
bcdacd
bcacd
bccd
bcd
bc
b

abcdabcdabcdabcd
abcdabdabcdabcd
  abcdbdabcdabcd
   abcdbdabdabcd
    abcdbdabdabc
     abcddabdabc
      abcddadabc
       abddadabc
        abddadab
         addadab
          adadab
           addab
            ddab
             dab
              ab
               b

abcdabcdabcdabcd abcdabcdabcdabcd
abcdabdabcdabcd abcdabdabcdabcd
  abcdbdabcdabcd abcdbdabcdabcd
   abcdbdabdabcd abcdbdabdabcd
    abcdbdabdabc abcdbdabdabc
     abcddabdabc abcddabdabc
      abcddadabc abcddadabc
       abddadabc abddadabc
        abddadab abddadab
         addadab addadab
          adadab adadab
           addab addab
            ddab ddab
             dab dab
              ab ab
               b b
              ab ab
             dab dab
            ddab ddab
           addab addab
          adadab adadab
         addadab addadab
        abddadab abddadab
       abddadabc abddadabc
      abcddadabc abcddadabc
     abcddabdabc abcddabdabc
    abcdbdabdabc abcdbdabdabc
   abcdbdabdabcd abcdbdabdabcd
  abcdbdabcdabcd abcdbdabcdabcd
abcdabdabcdabcd abcdabdabcdabcd
abcdabcdabcdabcd abcdabcdabcdabcd

@echo off&setlocal enabledelayedexpansion
set str=abcdabcdabcdabcd
set n=17
:1
set/a n-=1
set/a m=%random%%%%n%,x=n-m
set str=!str:~,%m%!!str:~-%x%!
echo %str%
if %n% gtr 1 goto 1
pause

@echo off&setlocal enabledelayedexpansion
set str=abcdabcdabcdabcd
set n=17
:1
set/a n-=1,y+=1
set/a m=%random%%%%n%,x=n-m
set str=!str:~,%m%!!str:~-%x%!
for /l %%a in (1 1 %y%) do set/p= <nul
set/p=%str%<nul
echo.
if %n% gtr 1 goto 1
pause

@echo off&setlocal enabledelayedexpansion
set str=abcdabcdabcdabcd
set/a n=17,y=0,z=16,l=1
:1
set/a n-=1,y+=1
set/a m=%random%%%%n%,x=n-m
set str=!str:~,%m%!!str:~-%x%!
for /l %%a in (1 1 %y%) do set/p= <nul
set/p=%str%<nul
set/p= %str%<nul
set str%n%=%str% %str%
echo.
if %n% gtr 1 goto 1

:2
set/a l+=1,z-=1
for /l %%a in (1 1 %z%) do set/p= <nul
set/p=!str%l%!<nul
echo.
if %z% gtr 1 goto 2
pause

@echo off&setlocal enabledelayedexpansion
set str=abcdabcdabcdabcd
set code=%str%
echo %code% %code%
:lp
set a=%str:~,1%&set /a num+=1
set var=%var% %a%&set str=%str:~1%
if defined str goto lp
set n=%num%
:loop
set "kong= "
set /a a=%random%%%%n%+1,b=num-n
for /l %%i in (1,1,%b%) do set kong= !kong!
for %%i in (%var%) do (
    set /a m+=1
    if "%a%" neq "!m!" set str=!str! %%i
)
set var=%str%&set str=&set /a n-=1,m=0,c+=1
set _%c%=%var: =%&set .%c%=%kong%%var: =%
if %n% neq 0 echo %kong%%var: =% %var: =%&goto loop
set /a c-=2
for /l %%i in (%c%,-1,1) do echo !.%%i! !_%%i!
echo %code% %code%
pause>nul

@echo off&mode con: cols=50 lines=33&color 1f
::获取字符串的长度
set "str=abcdabcdabcdabcd"
setlocal enabledelayedexpansion
for /l %%a in (0 1 100) do if not "!str:~%%a,1!"=="" set /a m=%%a+1
endlocal&set /a m=%m%&echo.

::第一题、==============================================
setlocal enabledelayedexpansion
:loop1
   set /a w=!random!%%m+1,h=w-1,m-=1
   set str=!str:~0,%h%!!str:~%w%!
   echo                  !str!
   if !m! neq 1 goto loop1
ping/n 2 127.1>nul

::第二题、==============================================
cls&endlocal&echo.
setlocal enabledelayedexpansion&color 1a
:loop2
   set /a w=!random!%%m+1,h=w-1,m-=1
   set str=!str:~0,%h%!!str:~%w%!
   echo                  %ko%!str!
   set "ko= %ko%"
   if !m! neq 1 goto loop2
ping/n 2 127.1>nul

::第三题、==============================================
cls&endlocal&echo.
setlocal enabledelayedexpansion&color 1e
:loop3
   set /a n+=1,w=!random!%%m+1,h=w-1,m-=1
   set num%n%=%ko%%str% %str%
   set str=!str:~0,%h%!!str:~%w%!
   set "ko= %ko%"
   echo         !num%n%!
   if !m! neq 0 goto loop3
   set /a n-=1
   for /l %%a in (!n! -1 1) do echo         !num%%a!
pause>nul