#!/usr/local/bin/perl -w
use strict;
$| = 1;
my @all = ((5) x 6, (10) x 6);
# twelve voters: six voting up to 5, six voting up to 10
for my $own (5, 10) {
# your own vote
my $i = 0;
my @others = grep $_ != $own || $i++, @all;
# remove your vote from the list for now...
my(%r, %n);
for (1 .. 5000) {
my @voters = shuffle(@others);
# shuffle the other votes
splice @voters, my $pos = int(rand @voters+1), 0, $own;
# put your vote back in, and save the position
my $rep = 0;
for my $v (@voters) {
$rep++ if $rep < $v;
}
# calculate the reputation
$r{$pos} += $rep;
$n{$pos}++;
# adjust the stats for this position
}
print "$own:\n";
for (sort { $a <=> $b } keys %n) {
printf " %2d %4d %4.2f\n", $_, $n{$_}, $r{$_} / $n{$_};
}
# print position, number of occurences, and average reputation
}
sub shuffle {
my @list = @_;
for (my $i = $#list; $i >= 0; --$i) {
my $j = int rand $i + 1;
@list[$i, $j] = @list[$j, $i];
}
@list;
}
And some results (your position / occurences / mean reputation):
5:
0 411 8.77
1 404 8.80
2 409 8.77
3 414 8.74
4 411 8.76
5 452 8.25
6 393 8.36
7 425 8.28
8 409 8.32
9 417 8.31
10 444 8.29
11 411 8.23
10:
0 386 8.17
1 439 8.15
2 420 8.25
3 435 8.14
4 393 8.21
5 407 8.74
6 437 8.73
7 412 8.71
8 444 8.69
9 402 8.67
10 399 8.77
11 426 8.75
Observe that the node's reputation will be closer to what you personally want if you vote later. If you're voting low, a later vote leads to a lower rep; if you're voting high, a later vote leads to a higher rep. | 