<?php
/**********************************************************
* Nicholas Clark
* 9/12/02
* Poker Contest
**********************************************************/
    define('TWO_KIND',2);
    define('TWO_PAIR',5);
    define('THREE_KIND',8);
    define('STRAIGHT',10);
    define('FLUSH',15);
    define('FULL_HOUSE',17);
    define('FOUR_KIND',20);
    define('STRAIGHT_FLUSH',25);
    main();
    function main() {
    global $deck_values,$deck_suits,$hand_values,$hand_suits,$total_odds_value,$deck,$final_points;
    get_deck_file();
    while (sizeof($deck) > 8) {
        $total_odds_value = $newhand_value = $newhand_suits = $test_suits = $test_value = $hand_suits = $hand_values = array();
        $deck_keys = array_keys($deck);
        for ($i = 0; $i < 5; $i++) {
        $hand_suits[] = $deck_suits[$deck_keys[$i]];
        $hand_values[] = $deck_values[$deck_keys[$i]];
        unset($deck_suits[$deck_keys[$i]]);unset($deck_values[$deck_keys[$i]]);unset($deck[$deck_keys[$i]]);
        }
        $hand = array_join($hand_suits,$hand_values,',');
        for ($i = 0; $i < 32; $i++) {
        for ($j = 0; $j < 5; $j++) {
            if ($i & pow(2,$j)) {
            $test_suits[$i][] = $hand_suits[$j];
            $test_value[$i][] = $hand_values[$j];
            }
            else {
            $test_suits[$i][] = '*';
            $test_value[$i][] = '*';
            }
        }
        get_odds($test_value[$i],$test_suits[$i]);
        }
        arsort($total_odds_value);
        $keys = array_keys($total_odds_value);

        $count = 0;
        $deck_keys = array_keys($deck);
        for ($i = 0; $i < 5; $i++) {
        if ($test_value[$keys[0]][$i]) {
            $newhand_value[$i] = $test_value[$keys[0]][$i];
            $newhand_suits[$i] = $test_suits[$keys[0]][$i];
        }
        else {
            $newhand_suits[$i] = $deck_suits[$deck_keys[$count]];
            $newhand_value[$i] = $deck_values[$deck_keys[$count]];
            unset($deck_suits[$deck_keys[$count]]);unset($deck_values[$deck_keys[$count]]);unset($deck[$deck_keys[$count]]);
            $count++;
        }
        }
        $final_points += $final_hands[] = get_points($newhand_value,$newhand_suits);
    }
    $keys = array_keys($deck);

    $file = fopen("output.txt",'w');
    $final_hands = array_count_values($final_hands);
    $total_hands = 0;
    $total_points = 0;
    foreach (array(
        //0 => 'ZERO_HAND',
        TWO_KIND => 'TWO_KIND',
        TWO_PAIR => 'TWO_PAIR',
        THREE_KIND => 'THREE_KIND',
        STRAIGHT => 'STRAIGHT',
        FLUSH => 'FLUSH',
        FULL_HOUSE => 'FULL_HOUSE',
        FOUR_KIND => 'FOUR_KIND',
        STRAIGHT_FLUSH => 'STRAIGHT_FLUSH',
        ) as $id => $name) {
        $final_hands[$id] += 1-1;
        fwrite($file,$name.': '.$final_hands[$id]."n");
        $total_hands += $final_hands[$id];
        $total_points += $final_hands[$id]*$id;
    }
    fwrite($file,$total_hands."n".($total_points/$total_hands)."n".$total_points);
    fclose($file);
    }
    function get_deck_file() {
    global $suits,$cards,$deck_suits,$deck_values,$deck;
    $suits = array('d','c','s','h');
    $cards = array(2,3,4,5,6,7,8,9,10,11,12,13,14);
    $file = file("input.txt");
    foreach ($file as $card) {
        $deck_values[] = str_replace(array('T','J','Q','K','A'),array(10,11,12,13,14),substr($card,0,1));
        $deck_suits[]  = strtolower(substr($card,1,1));
    }

    $deck = array_join($deck_suits,$deck_values,'');
    }
    function get_odds(&$values,&$suits) {
    global $deck,$total_odds_value,$total_odds;
    for ($i = 0; $i < 5; $i++) if ($values[$i] == '*') { unset($values[$i]);unset($suits[$i]); }
    if (sizeof($values) < 2 && !in_array(14,$values)) {$total_odds_value[] = ''; return false;}
    // odds for a straight-flush
    $odds += get_odds_straightflush($values,$suits) * STRAIGHT_FLUSH;
    // odds for a flush
    $odds += get_odds_flush($suits) * FLUSH;
    // odds for a straight
    $odds += get_odds_straight($values) * STRAIGHT;
    // odds for 4-kind
    $odds += get_odds_xkind($values,4) * FOUR_KIND;
    // odds for full house
    $odds += get_odds_fullhouse($values) * FULL_HOUSE;
    // odds for 3-kind
    $odds += get_odds_xkind($values,3) * THREE_KIND;
    // odds for 2-pair
    $odds += get_odds_twopair($values) * TWO_PAIR;
    // odds for 2-kind
    $odds += get_odds_xkind($values,2) * TWO_KIND;
    $total_odds_value[] = $odds;
    return $odds;
    }
    function get_points(&$values,&$suits) {
    // points for a straight-flush
    if     (get_points_straightflush($values,$suits)) return STRAIGHT_FLUSH;
    // points for a flush
    elseif (get_points_flush($suits)) return FLUSH;
    // points for a straight
    elseif (get_odds_straight($values)) return STRAIGHT;
    // points for 4-kind
    elseif (get_points_xkind($values,4)) return FOUR_KIND;
    // points for full house
    elseif (get_points_fullhouse($values)) return FULL_HOUSE;
    // points for 3-kind
    elseif (get_points_xkind($values,3)) return THREE_KIND;
    // points for 2-pair
    elseif (get_points_twopair($values)) return TWO_PAIR;
    // points for 2-kind
    elseif (get_points_xkind($values,2)) return TWO_KIND;
    else return 0;
    }
    function get_odds_straightflush($values,$suits) {
    global $deck,$deck_values,$total_odds;
    if (array_max($values,0) > 1 || array_max($suits,0) != sizeof($suits)) return 0;
    asort($values);
    $keys = array_keys($values);
    $lo = $values[$keys[0]];
    $hi = $values[$keys[sizeof($values)-1]];
    
    if ($hi - $lo >= 5) return 0;
    if (sizeof($hand) == 5) return 1;

    $deck_count = array_count_values($deck);
    for ($i = $lo-4; $i <= $lo; $i++) {
        if ($i < $hi-4 || $i < 2 || $i+4 > 14) continue;
        $temp = 1;
        for ($j = 0; $j < 5; $j++) {
        if (in_array($j+$i,$values)) continue;
        $temp *= $deck_count[$suits[$keys[0]].($j+$i)]/(sizeof($deck)-$count);
        }
        $odds += $temp*factorial(5-sizeof($values));
    }
    return $odds;
    }
    function get_odds_xkind($values,$amount) {
    global $deck_values,$deck,$total_odds;

    $left = array_count_values($deck_values);
    $numleft = array_count_values($left);
    // odds of getting x of a kind using one of the cards already in hand

    foreach (array_count_values($values) as $key => $count) {
        $numleft[4-$count]--;
        if        ($amount == $count) return 1;
        elseif    ($amount < $count) return 0;
        elseif    ($amount - $count > 5 - sizeof($values)) continue;
        $temp = choose($left[$key],$amount-$count)*choose(sizeof($deck_values)-$left[$key],5-sizeof($values)-($amount-$count));
        $odds += $temp;
    }
    // odds of getting x of a kind with a card not currently in your hand
    if ($amount <= 5-sizeof($values)) {
        for ($i = 4; $i >= $amount; $i--) {
        $odds += choose($numleft[$i],1)*choose($i,$amount);
        }
    }
    return $odds / choose(sizeof($deck),5-sizeof($values));
    }
    function get_odds_fullhouse($values) {
    global $deck_values,$deck,$total_odds;
    $cards = array_count_values($values);
    if (sizeof($cards) > 2) return 0;
    $keys = array_keys($cards);
    $left = array_count_values($deck_values);
    foreach ($left as $key => $value) {
        if ($cards[$key]) continue;
        $numleft[$value]++;
    }
    if (sizeof($cards) == 1) {
        for ($j = 4; $j > 1; $j--) {
        if (!$numleft[$j]) continue;
        $odds += choose($left[$keys[0]],3-$cards[$keys[0]])*choose($numleft[$j],1)*choose($j,2) +
                 choose($left[$keys[0]],2-$cards[$keys[0]])*choose($numleft[$j],1)*choose($j,3);
        }
    }
    else {
        $odds = choose($left[$keys[0]],3-$cards[$keys[0]])*choose(1,1)*choose($cards[$keys[1]],2)+
            choose($left[$keys[1]],3-$cards[$keys[1]])*choose(1,1)*choose($cards[$keys[0]],2);
    }
    return $odds / choose(sizeof($deck),5-sizeof($values));
    }
    function get_odds_twopair($values) {
    global $deck_values,$deck,$total_odds;
    $cards = array_count_values($values);
    if (sizeof($cards) > 3) return 0;
    arsort($cards);
    $keys = array_keys($cards);
    if (array_max($values,0) == 2 && array_max($values,1) == 2) return 1;
    $left = array_count_values($deck_values);

    foreach ($left as $key => $value) {
        if ($cards[$key]) continue;
        $numleft[$value]++;
    }
    if ($cards[$keys[0]] == 2) {
        for ($i = 1; $i < sizeof($cards); $i++) {
        $odds += choose($left[$keys[$i]],1)*choose(sizeof($deck)-$left[$keys[0]]-$left[$keys[$i]],5-sizeof($values)-1);
        }
        if (2 <= 5-sizeof($values)) {
        for ($i = 4; $i >= 2; $i--) {
            $odds += choose($numleft[$i],1)*choose($i,2)*choose(sizeof($deck)-$left[$keys[0]]-$i,5-sizeof($values)-2);
        }
        }
    }
    else {
        for ($i = 0; $i < sizeof($cards); $i++) {
        for ($j = 4; $j >= 2; $j--) {
            $odds += choose($left[$keys[$i]],1)*choose($numleft[$j],1)*choose($j,2)*choose(sizeof($deck)-$left[$keys[$i]]-$j,5-sizeof($values)-3);
        }
        foreach ($values as $key => $value) {
            if ($values[$keys[$i]] == $value) continue;
            $odds += choose($left[$keys[$j]],1)*choose($left[$keys[$j]],1)*choose(sizeof($deck)-$left[$keys[$j]]-$left[$key],5-sizeof($values)-2);
        }
        }
    }
    return $odds / choose(sizeof($deck),5-sizeof($values));
    }
    function get_odds_flush($values) {
    global $deck_suits,$total_odds;
    if (sizeof(array_count_values($values)) != 1) return 0;
    if (sizeof($values) == 5) return 1;
    $left = array_count_values($deck_suits);
    $keys = array_keys($values);
    return choose($left[$values[$keys[0]]],5-sizeof($values))/choose(sizeof($deck_suits),5-sizeof($values));
    }
    function get_odds_straight($values) {
    global $deck,$deck_values;
    if (sizeof(array_count_values($values)) != sizeof($values)) return 0;
    asort($values);
    $keys = array_keys($values);

    $lo = $values[$keys[0]];
    $hi = $values[$keys[sizeof($values)-1]];
    
    if ($hi - $lo >= 5) return 0;
    if (sizeof($values) == 5) return 1;
    $deck_count = array_count_values($deck_values);

    for ($i = $lo-4; $i <= $lo; $i++) {
        if ($i < $hi-4 || $i < 2 || $i+4 > 14) continue;
        $temp = 1;
        for ($j = 0; $j < 5; $j++) {
        if (in_array($j+$i,$values)) continue;
        $temp *= $deck_count[$j+$i]/(sizeof($deck)-$count);
        }
        $odds += $temp*factorial(5-sizeof($values));
    }
    return $odds;
    }

    function get_points_straightflush(&$values,&$suits) {
    if (array_max($values,0) == 1 && array_max($suits,0) == 5) {
        arsort($values);
        $keys = array_keys($values);
        if ($values[$keys[0]] - $values[$keys[4]] == 4) return true;
    }
    return false;
    }
    
    function get_points_flush(&$suits) {
    if (array_max($suits,0) == 5) return true;
    return false;
    }
    
    function get_points_straight(&$values) {
    if (array_max($values,0) == 1) {
        arsort($values);
        $keys = array_keys($values);
        if ($values[$keys[0]] - $values[$keys[4]] == 4) return true;
    }
    return false;
    }
    
    function get_points_xkind($values,$amount) {
    if (array_max($values,0) == $amount) return true;
    return false;
    }
    
    function get_points_fullhouse(&$values) {
    if (array_max($values,0) == 3 && array_max($values,1) == 2) return true;
    return false;
    }
    
    function get_points_twopair(&$values) {
    if (array_max($values,0) == 2 && array_max($values,1) == 2) return true;
    return false;
    }

    function choose($a=0,$b=0) {
    if ($b > $a || $a < 0 || $b < 0) return 0;
    $temp = 1;
    for ($i = $a; $i > $a - $b; $i--) $temp *= $i;
    return $temp / factorial($b);
    }
    function factorial($start) {
    global $cache;
    if ($start < 1) return 1;
    if ($cache[$start]) return $cache[$start];
    $output = 1;
    for ($i = 1; $i <= $start; $i++) $output *= $i;
    $cache[$start] = $output;
    return $output;
    }
    function array_join($one,$two,$join) {
    if (sizeof($one) != sizeof($two)) return false;
    foreach ($one as $id => $key) $new[$id] = $one[$id].$join.$two[$id];
    return $new;
    }
    function array_max($array,$offset = 0) {
    $count = array_count_values($array);
    arsort($count);
    $keys = array_keys($count);
    return $count[$keys[$offset]];
    }
    function array_multiply($keys) {
    $output = 1;
    foreach ($keys as $val) $output *= $val;
    return $output;
    }
?> 

<!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}

/////// Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-21402695-21']);
_gaq.push(['_setDomainName', 'angelfire.com']);
_gaq.push(['_setCustomVar', 1, 'member_name', 'creep/mobbdeep', 3]);
_gaq.push(['_trackPageview']);
(function() {
  var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
  ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
  var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();

////// Lycos Initialization /////////////////////
var lycos_ad = Array();
var lycos_search_query = "";
var lycos_onload_timer;

var cm_role = "live";
var cm_host = "angelfire.lycos.com";
var cm_taxid = "/memberembedded";
var angelfire_member_name = "creep/mobbdeep";
var angelfire_member_page = "creep/mobbdeep/index.html";
var angelfire_ratings_hash = "1564070474:4c9e9437d8a802c691a15ef110f909a1";

var lycos_ad_category = null;

var lycos_ad_remote_addr = "82.64.93.80";
var lycos_ad_www_server = "www.angelfire.lycos.com";
var edit_site_url = "www.angelfire.lycos.com/landing/landing.tmpl?utm_source=house&utm_medium=landingpage&utm_campaign=toolbarlink";

</script>
<script type="text/javascript" src="http://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>


<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_300x250_dfp', [300, 250], 'div-gpt-ad-1450207484070-0').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450207484070-1').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_below_728X90_dfp', [728, 90], 'div-gpt-ad-1450207484070-2').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>


<script type="text/javascript">
(function(isV) {
    if (!isV) {
        return;
    }

    //this.lycos_search_query = lycos_get_search_referrer();
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2","slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');

    if (this.lycos_search_query) {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if (adCat && adCat.find_what) {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }

    for (var s in slots) {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot)) {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }


    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {
    var w = 0, h = 0, minimumThreshold = 300;
    if (top == self) {
        return true;
    }

    if (typeof(window.innerWidth) == 'number' ) {
        w = window.innerWidth;
        h = window.innerHeight;
    }
    else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) {
        w = document.documentElement.clientWidth;
        h = document.documentElement.clientHeight;
    }
    else if (document.body && (document.body.clientWidth || document.body.clientHeight)) {
        w = document.body.clientWidth;
        h = document.body.clientHeight;
    }

    return ((w > minimumThreshold) && (h > minimumThreshold));
}())));


window.onload = function() {
    var f = document.getElementById("lycosFooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';

    // Slider Injection
    (function() {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';
    })();


    // Bottom Ad Injection
    ( function() {
        var b = document.getElementsByTagName("body")[0];

        var iif = document.createElement('iframe');
        iif.style.border = '0';
        iif.style.margin = 0;
        iif.style.display = 'block';
        iif.style.cssFloat = 'right';
        iif.style.height = '254px';
        iif.style.overflow = 'hidden';
        iif.style.padding = 0;
        iif.style.width = '300px';
        iif.src = '/adm/ad/injectAd.iframe.html';
        
        var cdiv = document.createElement('div');
        cdiv.style = "width:300px;margin:10px auto;";
        cdiv.appendChild( iif );
        if( b )
        {
            b.insertBefore(cdiv, b.lastChild);
        }
    })();

}


</script>

<style>
	#body .adCenterClass{margin:0 auto}
</style>

<div style="background:#abe6f6; border-bottom:1px solid #507a87; position:relative; z-index:9999999">

    <div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
        <a href="http://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; float:left; width:186px; border:0">
        <img src="/adm/ad/angelfire-freeAd.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" />
        </a>
        <div id="ad_container" style="display:block!important; float:left; width:728px ">
            <script type="text/javascript">document.write(lycos_ad['leaderboard']);</script>
        </div>
    </div>
</div>

<!-- ///////////////////////////////////// -->
<script type="text/javascript">document.write(lycos_ad['slider']);</script>


<div id="lycosFooterAd" style="background:#abe6f6; border-top:1px solid #507a87; clear:both; display:none; position:relative; z-index:9999999">
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:936px;">
	<div id="aflinksholder" style="float:left; width:186px;">
        <a href="http://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; border:0">
            <img src="/adm/ad/angelfire-freeAd2.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" />
        </a>
    </div>
    <iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>