Mercurial > mercurial > hgweb_ai.cgi

annotate makeparam.pl @ 1:c32b619844ba default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add eview.go.
author pyon@macmini
date Sun, 17 Sep 2017 14:33:27 +0900
parents 43e580fa4719
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