77七

@echo off
setlocal enabledelayedexpansion
set m=100000
%1 (for /f "tokens=2 delims==" %%a in ('%0 rem^|sort') do ((set /p=%%a <nul)&(set /a n+=1,i=n %% 50)&(if !i! equ 0 (echo=))))>1.txt&pause&exit
for /l %%k in (100,1,199) do (
        set str=%%k
        for /l %%l in (1,1,500) do (
                set /a m+=1
                echo !random!!m:~-6!=!str:~-2!
        )
)
复制代码

需要30秒

77七

回复 6# hfxiang


   楼主要求每行不重复

77七

回复 8# hfxiang

观察下最后一行，测试两次，最后一行比较明显
就是每行内的数字不能重复
  

60 38 38 05 40 38 33 38 12 12 12 64 60 33 60 60 33 12 33 40 33 33 33 40 60 40 12 12 40 33 33 33 33 64 33 64 64 64 40 40 40 64 40 40 40 64 64 64 64 64 
复制代码

77七

下午用定义行号和数字也写了个，但是在某一行，应该是出现有51个数已经用了500次...总是陷入死循环
WHY大佬直接将00-99一组分为两行，非常巧妙。
用批处理参考此思路也写了个，打乱排序需要2分钟，效率还是不行...，不打乱排序快点，
优化了下，打乱排序17秒

@echo off
%1 (for /f "tokens=2 delims==" %%a in ('%0 rem^|sort') do (echo %%a))>1.txt&pause&exit
for /l %%l in (1001,1,1500) do (
	setlocal enabledelayedexpansion
	for /l %%k in (100,1,199) do (
		set str=%%k
		set #!random!#%%k=!str:~-2!
	)
	for /f "tokens=2 delims==" %%a in ('set #') do (
		set str2=%%a !str2!
	)
	echo !random!#%%l1=!str2:~0,149!
	echo !random!#%%l2=!str2:~150,149!
	endlocal
)
复制代码

77七

如果对打乱排序后的结果，再处理，比如以两行为单位，随机排序这100个”数字“，每行不重复，让结果更随机一些，还挺有意思...感觉还是稍微有点难度...

35 70 39 96 45 26 79 86 40 72 92 46 31 68 95 71 65 73 58 90 29 89 10 82 50 42 94 84 01 34 17 93 06 32 74 07 44 76 37 08 55 47 53 22 23 88 13 16 66 19
55 02 23 30 70 56 53 42 25 33 48 29 79 09 66 98 24 80 11 94 93 13 61 73 40 43 68 67 51 76 26 37 19 59 35 75 95 96 90 63 22 64 69 97 41 15 54 77 86 83
复制代码

我抽取了结果的两行（不是互补的），在写，还没有写出来...

77七

回复 33# 77七


   我写了个比较复杂的...

@echo off
>2.txt echo 35 70 39 96 45 26 79 86 40 72 92 46 31 68 95 71 65 73 58 90 29 89 10 82 50 42 94 84 01 34 17 93 06 32 74 07 44 76 37 08 55 47 53 22 23 88 13 16 66 19
>>2.txt echo 55 02 23 30 70 56 53 42 25 33 48 29 79 09 66 98 24 80 11 94 93 13 61 73 40 43 68 67 51 76 26 37 19 59 35 75 95 96 90 63 22 64 69 97 41 15 54 77 86 83
setlocal enabledelayedexpansion
for /f "delims=" %%a in (2.txt) do (
        for %%b in (%%a) do (
                set /a #%%b+=1
        )
)
for /f "delims=" %%a in (2.txt) do (
        for %%b in (%%a) do (
                if !#%%b! equ 2 (
                        if not defined ##%%b (
                                set str1=%%b !str1!
                                set str2=%%b !str2!
                                set /a m+=1
                                set ##%%b=1
                        )
                ) else (
                        set /a n+=1
                        set _!random!_!n!=%%b
                )
        )
)
for /f "tokens=2 delims==" %%a in ('set _') do (
        if !m! lss 50 (
                set str1=%%a !str1!
                set /a m+=1
        ) else (
                set str2=%%a !str2!
        )
)
call :1 "!str1!"
call :1 "!str2!"
pause & exit

        :1
        setlocal
        for %%a in (%~1) do (
                set /a k+=1
                set @!random!_!k!=%%a
        )
        for /f "tokens=2 delims==" %%a in ('set @') do (
                set newstr=%%a !newstr!
        )
        echo !newstr!
        endlocal
复制代码