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

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

回复 18# pd1


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

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