11 lines
150 B
Perl
11 lines
150 B
Perl
|
srand();
|
||
|
|
|
||
|
|
for (1 .. 3) {
|
||
|
|
|
||
|
|
print "\n\nAfter seed has been reset\n";
|
||
|
|
|
||
|
|
for ( 1 .. 3 ) {
|
||
|
|
print " ", 1 + int( rand( 6 ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|