Help for this page

Select Code to Download


  1. or download this
    1
2
...
3
3
461
  2. or download this
    17
113
5882353
73765755896403138401
119968369144846370226083377
  3. or download this
    #!/usr/bin/perl
use strict;
...

open(RANDOM, '>', 'random.dat') or die $!;
print RANDOM (int( rand 31415926535 ) + 1), "\n" for 1 .. 50_000;