buyiyang

回复 23# pd1


    这个算法题还是有点复杂，我一开始只判断某数使用次数达500次就不再使用，结果到980多行时就没有50个数可使用了（比如999行时，75个数使用了500次，25个数使用了498次），我实在没有什么好的办法解决这个问题。你说的“500-任意一个值已经使用过的次数不能大于剩余生成的行数”也不行

qixiaobin0715

回复 26# pd1
唐突了，是我自己考虑欠妥。

pd1

回复 25# qixiaobin0715
我也说了思路没问题啊，只是没那么随机，可能如果要生成的数据量足够多才能必然出现互补行吧，虽然我没计算过到底需要多少行才出现，我也不会算。

    举个小例子，0-9  每个出现2次
01234
56789
03579
12468

上面是生产的12互补，34互补
把2行的7和4行的4换一下，有没有互补行呢
01234
56489
03579
12768

所以你是如何得出必有互补行的

qixiaobin0715

回复 18# pd1
我觉得WHY的思路没有问题。楼主的题目要求决定了只要出现一行随机数，必定要跟随互补的另一行。可以自己手工排排看，按最简单4行或6行，每个数出现2次或3次。只不过代码输出的是：单数行紧跟一偶数行，为互补行，给人表面的感觉不是随机的，实际上互补行是必须出现的。如果按照楼主的要求，最终数据都是两两互补，没有意外，只是出现的位置可以不同而已。

qixiaobin0715

回复 23# pd1
是算术题，1002行重复个数就是501，2000行个数就是1000。

pd1

回复 20# WHY
所以我感觉这个是一个算法题，需要判断如果超过500个了就不再使用它了，还得考虑的一个点是500-任意一个值已经使用过的次数不能大于剩余生成的行数。
不过既然楼主对数据没有这方面的需求，你的这个方法还是比较巧妙的。

qixiaobin0715

和楼上的基本相似，理了理思路，这样代码更易懂：

@echo off
(for /l %%i in (1,1,500) do (
    setlocal enabledelayedexpansion
    for /l %%j in (0,1,99) do (
        set /a n+=1
        if %%j lss 10 (
            set _!random!-!n!=0%%j
        ) else (
            set _!random!-!n!=%%j
        )
    )
    for /f "tokens=2 delims==" %%k in ('set _') do (
        set /a m+=1
        if !m! leq 50 (
            set str1=!str1! %%k
        ) else (
            set str2=!str2! %%k
        )
    )
    echo,!str1!
    echo,!str2!
    endlocal
))>1.txt
pause
复制代码

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
)
复制代码

WHY

回复 18# pd1


    是的，如果一个数（比如01）第一行、第二行都出现，有可能总数会超过500个，不符合题意。
如果有必要，可以在第10行上面插入一行：

$out = Get-Random $out -Count $out.Count
复制代码

Five66

额,确实像这样排好再打乱简单方便快速准确,不过输出顺序应该再打乱一次

pd1

回复 17# WHY


    这样是不是有点不随机了  比如任意一个值在第一行出现后就不可能在第二行出现。

WHY

Test.ps1

$arr = (100..199) -replace '^1';
$out = [Collections.ArrayList]@();

for ($i=1; $i -le 500; $i++) {
    $arr = Get-Random $arr -Count $arr.Count;
    [void]$out.Add($arr[0..49] -join ' ');
    [void]$out.Add($arr[50..99] -join ' ');
}

[IO.File]::WriteAllLines('1.txt', $out);
复制代码

WHY

Test.js

var arr = [];
var tmp = [];
var fso = new ActiveXObject('Scripting.FileSystemObject');

for(var i=100; i<=199; i++) tmp.push( (''+i).substr(1) );

for(var i=1; i<=500; i++){
    tmp.sort(function(){return Math.random()>0.5 ? 1 : -1});
    var str = tmp.join(' ');
    str = str.replace(/^((?:\d\d ){49}\d\d) /, '$1\r\n'); 
    arr.push(str);
}

fso.OpenTextFile('1.txt', 2, true).Write(arr.join('\r\n'));

WSH.Echo('Done');
复制代码

Five66

回复 14# 思想之翼



    1 应该是显示的行数达到cmd窗口界面的上限了,之前的被覆盖了
    2 重定向 >a.txt 是在那里用的?代码里的话必须用 >>a.txt 只有在cmd界面里才能用,不过代码有pause,cmd里界面用的话可能不准确
    3 这个有点难搞,举几个例子吧,比如那些数字不足,我再看看

思想之翼

回复 13# Five66
感谢！
1.代码在cmd界面运行，停止后，复制到文本，只有898行。
2.>a.txt，只能写入1行就停止了。
3.随机的每行字符不重复，但是1000行整体的字符，不能满足00=500个 01=500个...99=500个