|
Linux's Witness Ministry
|
#!/usr/bin/perl -w
$SIZE=3000;
srand(time);
@dna = ("A", "C", "G", "T");
for ( $x=0; $x<$SIZE; $x++ ){
print $dna[rand(4)];
}
| Return to Program Examples |
| This page was created with only free, open-source, publicly licensed software. This page was designed to be viewed with any browser on any system. |
| Chris X. Edwards ~ January 2003 |