Seeing that I'm still in University and that I would rather spend my time impulsively coding than studying I would like to challenge someone out there to some perl poker. I'm thinking of something akin to the prisoner's dilemma problem that was in TPJ two or so years ago.

This would be more of an AI programming thing. You write a poker player, I write a poker player. Then we deal the cards and let our players play poker.

hmmm...some things are already coming to mind. AI::Poker, AI::Poker::Player, AI::Poker::Dealer.

package Sid's::Poker::Player;
push (@Sid's::Poker::Player::ISA, AI::Poker::Player);
...
my $dealer = new AI::Poker::Dealer();
$dealer->add_players($sid, $elgon, ...);
$dealer->shuffle();
$dealer->burn();
$dealer->flop();
for ($dealer->players) {
  $_->bet();
}
...
## all in some sort of loop until everyone passes.
[download]

Comments?