104 lines
2.8 KiB
Perl
104 lines
2.8 KiB
Perl
package DDG::Goodie::Poker;
|
|
# ABSTRACT: Returns requested statistic for the requested poker hand
|
|
|
|
use strict;
|
|
use DDG::Goodie;
|
|
|
|
triggers any => 'poker';
|
|
|
|
zci answer_type => "poker";
|
|
zci is_cached => 1;
|
|
|
|
my %odds = (
|
|
"royal flush" => "649,739",
|
|
"straight flush" => "72,192",
|
|
"four of a kind" => "4,164",
|
|
"full house" => "693",
|
|
"flush" => "508",
|
|
"straight" => "254",
|
|
"three of a kind" => "46.3",
|
|
"two pair" => "20.0",
|
|
"one pair" => "1.36",
|
|
"no pair" => "0.995",
|
|
"high card" => "0.995",
|
|
);
|
|
|
|
my %frequency = (
|
|
"royal flush" => "4",
|
|
"straight flush" => "36",
|
|
"four of a kind" => "624",
|
|
"full house" => "3,744",
|
|
"flush" => "5,108",
|
|
"straight" => "10,200",
|
|
"three of a kind" => "54,912",
|
|
"two pair" => "123,552",
|
|
"one pair" => "1,098,240",
|
|
"no pair" => "1,302,540",
|
|
"high card" => "1,302,540",
|
|
);
|
|
|
|
my %probability = (
|
|
"royal flush" => "0.000154",
|
|
"straight flush" => "0.00139",
|
|
"four of a kind" => "0.0240",
|
|
"full house" => "0.144",
|
|
"flush" => "0.197",
|
|
"straight" => "0.392",
|
|
"three of a kind" => "2.11",
|
|
"two pair" => "4.75",
|
|
"one pair" => "42.3",
|
|
"no pair" => "50.1",
|
|
"high card" => "50.1",
|
|
);
|
|
|
|
my %webaddresses = (
|
|
"royal flush" => "Royal_flush",
|
|
"straight flush" => "Straight_flush",
|
|
"four of a kind" => "Four_of_a_kind",
|
|
"full house" => "Full_house",
|
|
"flush" => "Flush",
|
|
"straight" => "Straight",
|
|
"three of a kind" => "Three_of_a_kind",
|
|
"two pair" => "Two_pair",
|
|
"one pair" => "One_pair",
|
|
"no pair" => "High_card",
|
|
"high card" => "High_card",
|
|
);
|
|
|
|
handle remainder => sub {
|
|
#make sure the requested hand is listed
|
|
return unless /^(frequency|probability|odds)\s(.+)$/i && ($odds{lc$2});
|
|
|
|
my $query = lc $1;
|
|
my $hand = lc $2;
|
|
|
|
my $odds = "The odds of getting a $hand in poker are $odds{$hand} : 1.";
|
|
my $freq = "The frequency of a $hand in poker is $frequency{$hand} out of 2,598,960.";
|
|
my $prob = "The probability of getting a $hand in poker is $probability{$hand}%.";
|
|
|
|
my $link = qq(More at <a href="https://en.wikipedia.org/wiki/List_of_poker_hands#$webaddresses{$hand}">Wikipedia</a>.);
|
|
|
|
my %answer = (
|
|
'odds' => $odds,
|
|
'frequency' => $freq,
|
|
'probability' => $prob,
|
|
);
|
|
|
|
my %statistic = (
|
|
'odds' => $odds{$hand}." : 1",
|
|
'frequency' => $frequency{$hand}." out of 2,598,960",
|
|
'probability' => $probability{$hand}."%",
|
|
);
|
|
|
|
my $string_answer = $answer{$query};
|
|
my $structured_answer = {};
|
|
$structured_answer->{templates}->{group} = 'text';
|
|
$structured_answer->{data}->{title} = $statistic{$query};
|
|
$structured_answer->{data}->{subtitle} = $answer{$query};
|
|
|
|
return $string_answer, structured_answer => $structured_answer;
|
|
|
|
};
|
|
|
|
1;
|