中国DOS联盟

@echo off

setlocal enabledelayedexpansion

:begin

type nul>"%temp%\temp.txt"

for /l %%a in (1,1,10) do (

set aa=!random!!random!!random!!random!!random!!random!!random!

set ab=!aa:~0,7!

echo !ab!

set/p=!ab!<nul >>"%temp%\temp.txt"

)

echo.

for /f "delims=" %%i in ('type "%temp%\temp.txt"') do set ac=%%i

set ad=0123456789

for /l %%b in (0,1,9) do (

set ae=0

set af=!ad:~%%b,1!

call :aaa

)

echo.&pause&cls&goto begin

:aaa

for /l %%j in (0,1,69) do (

set ag=!ac:~%%j,1!

if !ag!==!af! set /a ae+=1

)

echo !af!已经出现!ae!次

goto :eof

@echo off

setlocal enabledelayedexpansion

:again_

echo.

set "yao="

for /l %%a in (0 1 9) do (

   set ming=!random!!random!!random!!random!!random!!random!!random!

   set ming=!ming:~-7!

   echo  !ming!

   set yao=!yao!!ming!

)

echo.

for %%a in (0 1 2 3 4 5 6 7 8 9) do (

   set n=0

   call :count %%a

)

echo.&pause&cls&goto :again_

:count

for /l %%i in (0 1 69) do (

   set fen=!yao:~%%i,1!

   if !fen!==%1 set /a n+=1

)

echo  %1 已经出现 !n! 次

@echo off

for /l %%a in (1 1 10) do call :loop

for /l %%a in (0 1 9) do if defined _%%a call echo %%a 出现 %%_%%a%% 次

pause>nul

:loop

  set "var=%random%%random%%random%%random%%random%%random%%random%"

  set "var=%var:~-7%"

  if defined .%var% goto loop

  echo %var%

  set .%var%=a

:loop2

set /a _%var:~0,1%+=1

set var=%var:~1%

if defined var goto loop2

goto :eof

@echo off

setlocal enabledelayedexpansion

for /l %%a in (1 1 1000) do call :loop

for /f "tokens=1,2 delims=.=" %%i in ('set.') do echo %%i 出现 %%j 次

pause

goto :eof

:loop

  set "str=%random%%random%%random%%random%%random%%random%%random%"

  set "str=%str:~-7%"

  if defined %str% goto loop

  echo %str%

  set %str%=a

  for /l %%i in (0 1 6) do set/a .!str:~%%i,1!+=1

Originally posted by moniuming at 2008-6-20 15:36:
经测试发现5楼的代码花的时间比6楼和7楼的代码花的时间还要少,有兴趣的朋友可以试试,在我的机子上5楼的平均用时是0.15秒,6楼0.45秒,7楼0.25秒.

Originally posted by terse at 2008-6-20 15:52:

你生成1000组看看 而且5楼有重复生成可能 排除重复的看看

@echo off&setlocal enabledelayedexpansion

set t=%time%

:begin

set codes=0 1 2 3 4 5 6 7 8 9

set code=%codes: =%

set /a m+=1,n=10,v=-1

:lp

set /a n-=1,a=%random%%%%n%

set a=!code:~%a%,1!

set str%m%=!str%m%! %a%&set code=!code:%a%=!

if %n% gtr 3 goto lp

for %%a in (%codes%) do (

    set /a v+=1

    for %%i in (!str%m%!) do (

        if %%a equ %%i set /a _!v!+=1

    )

)

if %m% lss 10 goto begin

for /l %%i in (1,1,10) do echo !str%%i!

echo.

for /l %%i in (0,1,9) do echo %%i出现次数为：!_%%i!次

echo 开始时间：%t% 

echo 结束时间：%time%

pause>nul

@echo off&setlocal enabledelayedexpansion

for /l %%a in (1 1 10000) do call :loop

    for /f "tokens=1,2 delims=.=" %%i in ('set.') do echo %%i 出现 %%j 次

pause

goto :eof

:loop

  for /l %%i in (1 1 7) do set str=!random:~-1!!str!

  if defined %str% goto loop

  for /l %%i in (0 1 6) do set/a .!str:~%%i,1!+=1

  echo %str%&set str=

Originally posted by terse at 2008-6-20 20:29:
测试以下的 不知道为什么貌似比前面的效率高点

@echo off&setlocal enabledelayedexpansion

for /l %%a in (1 1 10000) do call :loop

    for /f "tokens=1,2 delims ... 

@echo off&setlocal enabledelayedexpansion

set t=%time%

:begin

set codes=0 1 2 3 4 5 6 7 8 9

set code=%codes: =%

set /a m+=1,n=10

:lp

set /a n-=1,a=%random%%%%n%

set a=!code:~%a%,1!

for %%i in (%codes%) do if %%i equ %a% set /a _%%i+=1

set str%m%=!str%m%!%a%&set code=!code:%a%=!

if %n% gtr 3 goto lp

echo !str%m%!

if %m% lss 1000 goto begin

echo.

for /l %%i in (0,1,9) do echo %%i出现次数为：!_%%i!次

echo 开始时间：%t% 

echo 结束时间：%time%

pause>nul