[HaBo]

#include <stdlib.h>
#include <stdio.h>

main()
{
srand(time(0));
int a[9999],i,c,k;
FILE *file;

for(i=0;i<=9999;i++)a[i]=i;
for(i=0;i<=9999;i++){c=a[i];a[i]=a[k=rand()%10000];a[k]=c;}

file=fopen("random_number_list.txt", "w");
if(file==NULL){printf("File Access Error");exit(EXIT_FAILURE);}
for(i=0;i<=9999;i++)fprintf(file, "%00004d\n",a[i]);
fclose(file);
}

a = []; i = 0; k = 0
while a.length != 10000
	b = rand(10000); k = 0
	a.each { |part|
		if part == b
			k = 1
		end
	}
	if k != 1
		a.push(b)
		if b < 10
			puts "000#{b}"; c = "000#{b}"
		elsif b < 100
			puts "00#{b}"; c = "00#{b}"
		elsif b < 1000
			puts "0#{b}"; c = "0#{b}"
		else
			puts "#{b}"; c = "#{b}"
		end
		file = File.new("zahlen.txt", "a"); file.puts c; file.close
	end
end

File.open("zahle.txt", "w") { |datei| 	zahlen = (0000..9999).sort_by{rand}.each { |zahl| 	datei.puts zahl } }

#import <Foundation/Foundation.h>

int main (int argc, const char * argv[]) {
    NSAutoreleasePool * pool = [[NSAutoreleasePool alloc] init];
    
    NSMutableArray *numbers = [NSMutableArray arrayWithCapacity:10000];
    int i;
    srand(time(NULL));
    for (i = 0; i < 10000; i++) {
        NSString *content = [NSString stringWithFormat:@"%.4d", i];
        NSUInteger numbersCount = [numbers count];
        NSUInteger randomIndex = rand() % (numbersCount+1);
        [numbers insertObject:content atIndex:randomIndex];
    }
    [[numbers componentsJoinedByString:@"\n"] writeToFile:@"output.txt" atomically:YES encoding:NSUTF8StringEncoding error:NULL];
    
    [pool drain];
    return 0;
}

(loop for i from 0 upto 1000 collecting i into l 
          finally (with-open-file (file "./a.out" :direction :output)
            (format file "~{~4,'0D~^~%~}" (sort l #'> :key (lambda (x) (random 1.0))))))

[delphi]
procedure BlubGod(Filename: String; Max: DWord);
var
  StrLst  : TStringList;
  Values  : Array of DWord;
  i       : Integer;
begin
  StrLst := TStringList.Create;
  try
    Randomize;
    SetLength( Values, Max );
    for i := 0 to Max - 1 do
      Values[i] := i;
    StrLst.BeginUpdate();
    try
      repeat
        i := Random( Max );
        dec( Max );
        StrLst.Add( IntToStr( Values[i] ) );
        if i = Max then
          Continue;
        // some exchange magic...
        Values[i] := Values[i] - Values[Max];
        Values[Max] := Values[Max] + Values[i];
        Values[i] := Values[Max] - Values[i];
      until Max = 0;
    finally
      StrLst.EndUpdate();
    end;
    StrLst.SaveToFile( Filename );
  finally
    StrLst.Free;
  end;
end;
[/delphi]

  BlubGod('blub.txt', 1000000);

datei=File.open("zahlen.txt","w")
datei.puts Array(1..1000).shuffle.to_s.delete("[").delete("]")
datei.close

#!/usr/bin/env ruby

foo = (0..9999).to_a.shuffle
File.open('foo.txt', 'w') { |f| foo.each { |i| f.printf("%04d\n", i) } }

cls
$Zahl=New-Object int[] 9999
for ($i=0; $i-le 9998; $i++)
{
$Zahl[$i] =$i
}
for ($i=0; $i-le 9998; $i++)
{
$x=$Zahl[$i]
$y= random(0..9998)
$Z=$Zahl[$y]
$Zahl[$i] =$z
$Zahl[$y] =$x
}
 
$Zahl | out-file-filepathE:\Numbers.txt

shuf -e {0000..9999} > zahlen.txt