[HaBo]

loop, 9999
  sList := sList . a_index . "|"

  Sort, sList, Random Z D|
  
 loop, parse,  sList, |
    fileappend, %a_loopfield%`n, result.txt
  
  msgbox File createt.

loop, 9999
  sList := sList . a_index . "|"

  Sort, sList, Random Z D|
  
 loop, parse,  sList, |
 {
  
    if strlen(a_loopfield) = 1
      newLine := 000 . a_loopfield
    Else if strlen(a_loopfield) = 2
      newLine := 00 . a_loopfield
    Else if strlen(a_loopfield) = 3
      newLine := 0 . a_loopfield
    Else if strlen(a_loopfield) = 4
      newLine := a_loopfield
    
    fileappend, %newLine%`n, result.txt
    
 }
msgbox File createt.

List list = []
for (n in 0..9999) { list.add(String.format("%04d", n)) }
Collections.shuffle(list)
BufferedWriter out = new File("numbers.txt").newWriter()
list.each { out.writeLine(it) }

php -r 'for($i=0;$i<10000;$i++)$a[]=$i;shuffle($a);foreach($a as $b)echo str_pad(0,4,$b)."\n";'>numbers.txt

php -r '$a=range(0,10000);shuffle($a);foreach($a as $b)echo str_pad(0,4,$b)."\n";'>numbers.txt

#!/usr/bin/perl
srand;@new = (); @old = 1 .. 9999;for( @old ){my $r = rand @new+1;push(@new,$new[$r]); $new[$r] = $_;}printf "@new\n";

#include <fstream>
using namespace std;

int main()
{
    ofstream out("./numbers.txt");
    int nums[10000];

    // Fill the numbers array
    for (int i = 0; i < 10000; ++i) {
        nums[i] = i;
    }

    // Sort it by random
    srand(time(0));
    for (int i = 0; i < 10000; ++i) {
        int moveto = rand() % 10000;
        int tmp = nums[moveto];
        nums[moveto] = nums[i];
        nums[i] = tmp;
    }

    // Now put it in the text file
    for (int i = 0; i < 10000; ++i) {
        out.fill('0');
        out.width(4);
        out << nums[i] << '\n';
    }
}

void shuffle(int *data,int count)
{    
     int pos1,pos2,temp;    
     for(int i=0;i<count;i++)
     {
             pos1=rand()%count;
             pos2=rand()%count;
             temp = data[pos1];
             data[pos1]=data[pos2];
             data[pos2]=temp;            
     }
}