Help for this page

Select Code to Download


  1. or download this
    > cat Makefile
SEED := ${shell perl -e 'print int rand 10_000'}
...
all:
        @perl proc0
        @perl proc1
  2. or download this
    > cat proc0
use warnings;
...
    die "Error: need a seed.\n";
}
print "$0 ", rand, "\n";
  3. or download this
    > cat proc1
use warnings;
...
    die "Error: need a seed.\n";
}
print "$0 ", rand, "\n";
  4. or download this
    > make
proc0 0.0394185183840854
...
> make
proc0 0.697487873098911
proc1 0.697487873098911