in reply to Too much positive votes on questions (Seekers of Perl Wisdom)

Also, please note that 50 Reputation != 50 XP. Checkout the Voting/Experience System to get a better idea of how it works.

Cheers

  • Comment on Re: Too much positive votes on questions (Seekers of Perl Wisdom)

Replies are listed 'Best First'.
Re: Re: Too much positive votes on questions (Seekers of Perl Wisdom)
by Util (Priest) on May 03, 2003 at 20:07 UTC

    pzbagel++, I was about to say the same.

    The formula, and today's value for NORM, are taken from Voting/Experience System. 

    #!/usr/bin/perl -w
use strict;
# Average XP for a number of ++ votes, with no -- votes, given a NORM.
my $votes = 50;
my $NORM  = 10.7453;
my @val   = (0, 1/3, 1/2, 2/3, 3/4, 1);
my $xp    = 0;
foreach my $rep ( 1 .. $votes ) {
  foreach (1..$#val) {
    $xp += $val[$_], last if $rep <= $_ * $NORM;
  }
}
printf "XP = %.1f\n", $xp;

    [download]

    XP = 31.7

[reply]
[d/l]
[reply]

In Section Perl Monks Discussion