Mercurial > mercurial > hgweb_ai.cgi
comparison makeparam.pl @ 0:43e580fa4719
first commit.
| author | pyon@macmini |
|---|---|
| date | Mon, 04 Sep 2017 21:40:33 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:43e580fa4719 |
|---|---|
| 1 | |
| 2 sub random_param { | |
| 3 my @x; | |
| 4 for ( 1..14 ) { | |
| 5 #my $r = ( int rand 9 ) + 1; # 1 .. 9 | |
| 6 my $r = ( int rand 19 ) - 9; # -9 .. 9 | |
| 7 redo if $r == 0; | |
| 8 push @x, $r; | |
| 9 } | |
| 10 print join ' ' => @x; | |
| 11 print "\n"; | |
| 12 } | |
| 13 | |
| 14 | |
| 15 for ( 1..1000 ) { | |
| 16 random_param(); | |
| 17 } | |
| 18 |