in reply to The game of Skunk

I wrote a random roller: 
package SkunkPlayer::Random;
my $meta_object = {
  NAME => "Random Roller",
  DESCRIPTION => "Rolls randomly",
  CREATE => sub { new (__PACKAGE__, @_} }
};

sub ask_to_roll {
  return (rand() < shift->{R}) ? 1 : 0;
}

[download]
I tested it with R => 0.5 (rolls 50% of the time) which did pretty good. Setting this higher, brought better results. Eventually I found that always rolling did pretty well (in fact, beat all the other players consistently), as a streak to 100 can mount pretty quickly.

Replies are listed 'Best First'.
Re: Re: The game of Skunk
by John M. Dlugosz (Monsignor) on Jun 26, 2003 at 04:56 UTC
    Very interesting! Thanks.

    There seems to be a bug somewhere else in the framework, though, since when I tested a player from your class I noticed that the win/loss stats aren't adding up!

    Bingo: line 156 in SkunkGame.pm is $Players[$last_player]->lose(); should be $Players[$_]->lose()

    That didn't affect the money totals, just the win/loss stat display. I think the bug you reported was more seriously affecting the stats... Solo might have been winning more because he was first.

    Anyway, I found that 

    SkunkGame::create_player ("Single Roller", "Solo");
SkunkGame::create_player ("N Roller", "Trey");
SkunkGame::create_player ("N Roller", "Ducky", N => 2);
SkunkGame::create_player ("Random Roller", "Randy", R => 0.50);

    [download]
    consistantly gives results that Randy is the big loser at 7 to 7.5 chips per game, and Ducky wins 6 to 7 chips per game.

    As posted, R=1.0 would always skunk, as it doesn't know to stop when it does manage a hundred points.

    —John

[reply]
[d/l]
[select]

In Section Cool Uses for Perl