中国DOS联盟

@echo off&setlocal enabledelayedexpansion
set code=abcdefghijklmnop&set num=15
:lp
set /a a=%random%%%%num%
set a=!code:~%a%,1!
set str=%str%%a%
set code=!code:%a%=!
set /a num-=1
set /a n+=1
if %n% lss 2 goto lp
set codes=%code%
set /a a=%random%%%num%
set a=!codes:~%a%,1!
set str=%str%%a%
set /a m+=1,n=0
echo 星期%m%：%str%
if %m% lss 7 set str=&goto lp
pause>nul

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1,1,13) do (
  set/a num1=%%i+1
  for /l %%j in (!num1!,1,14) do (
    set/a num2=%%j+1
    for /l %%k in (!num2!,1,15) do (
    call :out %%i %%j %%k
    )
  )
)
echo 一共%num%组&echo.&echo 分组排列情况如下:
:loop
for /f "tokens=1 delims=-=" %%i in ('set -') do (
  set flag=0
  for %%j in (%%i) do (
  if not defined .%%j set/a flag+=1
  )
  if !flag!==3 (set/p=%%i  <nul&set -%%i=&for %%j in (%%i) do (set .%%j=ok))
)
echo.&for /l %%i in (1,1,15) do set .%%i=
set/a flag1+=1&if not !flag1!==7 goto :loop
echo.&echo 未能加入分组的项目:
set -
pause>nul

:out
set flag=0
for %%i in (%1 %2 %3) do (
  for %%j in (%1 %2 %3) do (
  if not %%i==%%j if not defined %%i_%%j set/a flag+=1)
  )
)
if %flag% lss 6 goto :eof
set/a num+=1&echo %1-%2-%3&set -%1,%2,%3=ok
for %%i in (%1 %2 %3) do (
  for %%j in (%1 %2 %3) do (
  if not %%i==%%j set %%i_%%j=ok
  )
)

@echo off&setlocal enabledelayedexpansion
set "var1=a b c d e f g h i j k l m n o"
for %%a in (一 二 三 四 五 六 日) do (
    set /a xx+=1&set ".!xx!=%%a"
)
for %%a in (!var1!) do (
   set "var2=!var1:%%a=!"
   for %%b in (!var2!) do (
      set "var3=!var2:%%b=!"
      for %%c in (!var3!) do (
         if not defined %%a.%%b if not defined %%b.%%a (
            if not defined %%a.%%c if not defined %%c.%%a (
               if not defined %%b.%%c if not defined %%c.%%b (
               set "num=%%a.%%b %%b.%%a %%a.%%c %%c.%%a %%b.%%c %%c.%%b"
               for %%i in (!num!) do set %%i=a
               set /a nnn+=1
               set "..%%a=!..%%a! %%a-%%b-%%c"
))))))
FOR %%B IN (!..A!) DO SET "..A2=%%B !..A2!"
echo  !..A2!
for %%a in (b c d e f g) do echo !..%%a!
echo  共 !nnn! 组
echo.&echo.
for %%a in (!..a2!) do (
   set "str=%%a"
   set /a xq+=1
   for %%c in (b c d e f g) do call :loop %%c
   call echo  星期%%.!xq!%%   %%a!max!
   set "max="
)
echo.&pause
:loop
set "str=!str! !max!"
set "str=!str:-= !"
for %%d in (!..%1!) do (
   set "num=%%d"
   for %%e in (!str!) do set "num=!num:%%e=!"
   if not "!num:~4,1!"=="" (
      set "max=!max! %%d"
      set "..%1=!..%1:%%d=!"
      goto :eof
))
goto :eof

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1,1,13) do (
  set/a num1=%%i+1
  for /l %%j in (!num1!,1,14) do (
    set/a num2=%%j+1
    for /l %%k in (!num2!,1,15) do (
    call :out %%i %%j %%k
    )
  )
)
echo.&echo 一共%num%组&echo.&echo 分组排列情况如下:
for /f "tokens=1 delims=-=" %%i in ('set -01^|sort/r') do (
  set/p=%%i  <nul&set -%%i=&for %%j in (%%i) do (set .%%j=ok)
  for /f "tokens=1 delims=-=" %%j in ('set -') do (
  set flag=0
  for %%k in (%%j) do if not defined .%%k set/a flag+=1
  if !flag!==3 (set/p=%%j  <nul&set -%%j=&for %%k in (%%j) do (set .%%k=ok))
  )
  echo.&for /l %%i in (1,1,15) do (set str=0%%i&set str=!str:~-2!&set .!str!=)
)

pause>nul

:out
set flag=0
for %%i in (%1 %2 %3) do (
  for %%j in (%1 %2 %3) do (
  if not %%i==%%j if not defined %%i_%%j set/a flag+=1)
  )
)
if %flag% lss 6 goto :eof
set/a num+=1
set str1=0%1&set str2=0%2&set str3=0%3&set str1=!str1:~-2!&set str2=!str2:~-2!&set str3=!str3:~-2!
echo !str1!-!str2!-!str3!&set -!str1!,!str2!,!str3!=ok
for %%i in (%1 %2 %3) do (
  for %%j in (%1 %2 %3) do (
  if not %%i==%%j set %%i_%%j=ok
  )
)