Mercurial > mercurial > hgweb_ai.cgi

annotate makeparam.pl @ 0:43e580fa4719

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit.
author pyon@macmini
date Mon, 04 Sep 2017 21:40:33 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
1
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
2 sub random_param {
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
3 my @x;
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
4 for ( 1..14 ) {
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
5 #my $r = ( int rand 9 ) + 1; # 1 .. 9
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
6 my $r = ( int rand 19 ) - 9; # -9 .. 9
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
7 redo if $r == 0;
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
8 push @x, $r;
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
9 }
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
10 print join ' ' => @x;
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
11 print "\n";
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
12 }
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
13
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
14
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
15 for ( 1..1000 ) {
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
16 random_param();
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
17 }
43e580fa4719 first commit.
pyon@macmini
parents:
diff changeset
18