<?php
$games = 0;
$wins = 0;
for ($games = 1; $games < 100 * 1000; $games++) {
$cur_deck = $deck;
$reds = 26;
$blacks = 26;
$deck_size = $reds + $blacks;
while ($deck_size >= 2) {
// Betting cases
if ($reds > $blacks) { break; } // If more red then black, bet
if ($reds == 1) { break; } // If only one red left, bet
if ($deck_size == 1) { break; } // If only one card left, bet
if ($flip == 'R') { $reds--; }
if ($flip == 'B') { $blacks--; }
$deck_size--;
}
// If the next flip is red, we win.
if ($flip == 'R') { $wins++; }
}
echo "Win Percent: " . number_format(100 * ($wins / $games), 2) . PHP_EOL
;
?>
PD9waHAKCiRkZWNrID0gYXJyYXlfbWVyZ2UoYXJyYXlfZmlsbCgwLCAyNiwgJ1InKSwgYXJyYXlfZmlsbCgwLCAyNiwgJ0InKSk7CiRnYW1lcyA9IDA7CiR3aW5zID0gMDsKCmZvciAoJGdhbWVzID0gMTsgJGdhbWVzIDwgMTAwICogMTAwMDsgJGdhbWVzKyspIHsKICAgICRjdXJfZGVjayA9ICRkZWNrOwogICAgc2h1ZmZsZSgkY3VyX2RlY2spOwogICAgCiAgICAkcmVkcyA9IDI2OwogICAgJGJsYWNrcyA9IDI2OwogICAgJGRlY2tfc2l6ZSA9ICRyZWRzICsgJGJsYWNrczsKICAgIAogICAgd2hpbGUgKCRkZWNrX3NpemUgPj0gMikgewogICAgICAgIC8vIEJldHRpbmcgY2FzZXMKICAgICAgICBpZiAoJHJlZHMgPiAkYmxhY2tzKSB7IGJyZWFrOyB9ICAgICAgICAgLy8gSWYgbW9yZSByZWQgdGhlbiBibGFjaywgYmV0CiAgICAgICAgaWYgKCRyZWRzID09IDEpIHsgYnJlYWs7IH0gICAgICAgICAgICAgIC8vIElmIG9ubHkgb25lIHJlZCBsZWZ0LCBiZXQKICAgICAgICBpZiAoJGRlY2tfc2l6ZSA9PSAxKSB7IGJyZWFrOyB9ICAgLy8gSWYgb25seSBvbmUgY2FyZCBsZWZ0LCBiZXQKICAgICAgICAKICAgICAgICAkZmxpcCA9IGFycmF5X3BvcCgkY3VyX2RlY2spOwogICAgICAgIGlmICgkZmxpcCA9PSAnUicpIHsgJHJlZHMtLTsgfQogICAgICAgIGlmICgkZmxpcCA9PSAnQicpIHsgJGJsYWNrcy0tOyB9CiAgICAgICAgJGRlY2tfc2l6ZS0tOwogICAgfQogICAgCiAgICAvLyBJZiB0aGUgbmV4dCBmbGlwIGlzIHJlZCwgd2Ugd2luLgogICAgJGZsaXAgPSBhcnJheV9wb3AoJGN1cl9kZWNrKTsKICAgIGlmICgkZmxpcCA9PSAnUicpIHsgJHdpbnMrKzsgfQp9CgplY2hvICJUb3RhbCBHYW1lczogIiAuIG51bWJlcl9mb3JtYXQoJGdhbWVzKSAuIFBIUF9FT0w7CmVjaG8gIlRvdGFsIFdpbnM6ICAiIC4gbnVtYmVyX2Zvcm1hdCgkd2lucykgIC4gUEhQX0VPTDsKZWNobyAiV2luIFBlcmNlbnQ6ICIgLiBudW1iZXJfZm9ybWF0KDEwMCAqICgkd2lucyAvICRnYW1lcyksIDIpIC4gUEhQX0VPTDsKCj8+