<?php
$times=500; //허바 100개 뽑기
$sum = 0; //허바 뽑는데 쓴 지푸라기 총 개수
$i=0;
$list_item = array("머리","오른손","왼손","몸통","다리"); //허수아비 부위 $list_item_count = array(0,0,0,0,0); //허수아비 부위 개수 $list_percent = array(0.1,33,17,44.6,5.3); //허수아비 부위 확률 do{
$i=$i+1;
$Straw = 0; //새로 허바 뽑을때 마다 지푸라기 개수 초기화 해줘야 겠죠
$list_item_count = array(0,0,0,0,0); //새로 허바 뽑을때 마다 부위 개수 초기화 해줘야 겠죠 $Straw_exc = 0; //지푸라기 45개 될때마다 교환권 있죠
do{ //허바 뽑기 시작
$draw = Percent_draw($list_item,$list_percent);
$Straw = $Straw+3;
$Straw_exc = $Straw_exc+3;
if($draw=="머리") $list_item_count[0]=$list_item_count[0]+1;
if($draw=="오른손") $list_item_count[1]=$list_item_count[1]+1;
if($draw=="왼손") $list_item_count[2]=$list_item_count[2]+1;
if($draw=="몸통") $list_item_count[3]=$list_item_count[3]+1;
if($draw=="다리") $list_item_count[4]=$list_item_count[4]+1;
if($Straw_exc >= 45){ //지푸라기 45개 넘으면 교환해서도 받아갈수 있으니깐.....
if($list_item_count[0] >1 && $list_item_count[1] >1 && $list_item_count[2] >1 && $list_item_count[3] >1) {
$Straw_exc = $Straw_exc-45; //교환하면 지푸라기 45개 빼줍니다.
$list_item_count[4] = $list_item_count[4]+1;
}
if($list_item_count[0] >1 && $list_item_count[1] >1 && $list_item_count[2] >1 && $list_item_count[4] >1) {
$Straw_exc = $Straw_exc-45;
$list_item_count[3] = $list_item_count[3]+1;
}
if($list_item_count[0] >1 && $list_item_count[1] >1 && $list_item_count[3] >1 && $list_item_count[4] >1) {
$Straw_exc = $Straw_exc-45;
$list_item_count[2] = $list_item_count[2]+1;
}
if($list_item_count[0] >1 && $list_item_count[2] >1 && $list_item_count[3] >1 && $list_item_count[4] >1) {
$Straw_exc = $Straw_exc-45;
$list_item_count[1] = $list_item_count[1]+1;
}
if($list_item_count[1] >1 && $list_item_count[2] >1 && $list_item_count[3] >1 && $list_item_count[4] >1) {
$Straw_exc = $Straw_exc-45;
$list_item_count[0] = $list_item_count[0]+1;
}
}
if($list_item_count[0] >0 && $list_item_count[1] >0 && $list_item_count[2] >0 && $list_item_count[3] >0 && $list_item_count[4] >0) {
break; //허수아비 헬멧 뽑았으면 반복문 탈출
}
}while(true); //허바뽑기 끝
$sum = $Straw+$sum; //허바 뽑는데 사용한 지푸라기 개수 누적처리
}while($i<$times);
echo "허수아비 헬멧 ".$i."회 뽑기 평균값 : ".$sum/$i;
function Percent_draw($items_list,$percent_list) {
$range_now = 0;
$range_last = 0;
$decimal = 4;
if(count($percent_list) != count($items_list)) return false; for($sequence=0; $sequence<count($percent_list); $sequence++) { $range_now += pow(10,$decimal)*$percent_list[$sequence]; if($range_now >= $draw && $range_last < $draw) {
return $items_list[$sequence];
}else{
$range_last = $range_now;
}
}
}
?>
PD9waHAKJHRpbWVzPTUwMDsJCQkvL+2XiOuwlCAxMDDqsJwg672R6riwCiRzdW0gPSAwOwkJCS8v7ZeI67CUIOu9keuKlOuNsCDsk7Qg7KeA7ZG465286riwIOy0nSDqsJzsiJgKJGk9MDsKJGxpc3RfaXRlbSA9IGFycmF5KCLrqLjrpqwiLCLsmKTrpbjshpAiLCLsmbzshpAiLCLrqrjthrUiLCLri6TrpqwiKTsJLy/tl4jsiJjslYTruYQg67aA7JyECiRsaXN0X2l0ZW1fY291bnQgPSBhcnJheSgwLDAsMCwwLDApOwkJCQkJCS8v7ZeI7IiY7JWE67mEIOu2gOychCDqsJzsiJgKJGxpc3RfcGVyY2VudCA9IGFycmF5KDAuMSwzMywxNyw0NC42LDUuMyk7CQkJCQkvL+2XiOyImOyVhOu5hCDrtoDsnIQg7ZmV66WgCmRvewoJJGk9JGkrMTsKCSRTdHJhdyA9IDA7CQkJCQkJCQkJLy/sg4jroZwg7ZeI67CUIOu9keydhOuVjCDrp4jri6Qg7KeA7ZG465286riwIOqwnOyImCDstIjquLDtmZQg7ZW07KSY7JW8IOqyoOyjoAoJJGxpc3RfaXRlbV9jb3VudCA9IGFycmF5KDAsMCwwLDAsMCk7CQkvL+yDiOuhnCDtl4jrsJQg672R7J2E65WMIOuniOuLpCDrtoDsnIQg6rCc7IiYIOy0iOq4sO2ZlCDtlbTspJjslbwg6rKg7KOgCgkkU3RyYXdfZXhjID0gMDsJCQkJCQkJCS8v7KeA7ZG465286riwIDQ16rCcIOuQoOuVjOuniOuLpCDqtZDtmZjqtowg7J6I7KOgCglkb3sJCQkJCQkJCQkJCS8v7ZeI67CUIOu9keq4sCDsi5zsnpEKCQkkZHJhdyA9IFBlcmNlbnRfZHJhdygkbGlzdF9pdGVtLCRsaXN0X3BlcmNlbnQpOwoJCSRTdHJhdyA9ICRTdHJhdyszOwoJCSRTdHJhd19leGMgPSAkU3RyYXdfZXhjKzM7CgkJaWYoJGRyYXc9PSLrqLjrpqwiKSAkbGlzdF9pdGVtX2NvdW50WzBdPSRsaXN0X2l0ZW1fY291bnRbMF0rMTsKCQlpZigkZHJhdz09IuyYpOuluOyGkCIpICRsaXN0X2l0ZW1fY291bnRbMV09JGxpc3RfaXRlbV9jb3VudFsxXSsxOwoJCWlmKCRkcmF3PT0i7Jm87IaQIikgJGxpc3RfaXRlbV9jb3VudFsyXT0kbGlzdF9pdGVtX2NvdW50WzJdKzE7CgkJaWYoJGRyYXc9PSLrqrjthrUiKSAkbGlzdF9pdGVtX2NvdW50WzNdPSRsaXN0X2l0ZW1fY291bnRbM10rMTsKCQlpZigkZHJhdz09IuuLpOumrCIpICRsaXN0X2l0ZW1fY291bnRbNF09JGxpc3RfaXRlbV9jb3VudFs0XSsxOwoJCWlmKCRTdHJhd19leGMgPj0gNDUpewkJCQkJLy/sp4DtkbjrnbzquLAgNDXqsJwg64SY7Jy866m0IOq1kO2ZmO2VtOyEnOuPhCDrsJvslYTqsIjsiJgg7J6I7Jy864uI6rmQLi4uLi4KCQkJaWYoJGxpc3RfaXRlbV9jb3VudFswXSA+MSAmJiAkbGlzdF9pdGVtX2NvdW50WzFdID4xICYmICRsaXN0X2l0ZW1fY291bnRbMl0gPjEgJiYgJGxpc3RfaXRlbV9jb3VudFszXSA+MSkgewoJCQkJJFN0cmF3X2V4YyA9ICRTdHJhd19leGMtNDU7CQkvL+q1kO2ZmO2VmOuptCDsp4DtkbjrnbzquLAgNDXqsJwg67m87KSN64uI64ukLgoJCQkJJGxpc3RfaXRlbV9jb3VudFs0XSA9ICRsaXN0X2l0ZW1fY291bnRbNF0rMTsKCQkJfQoJCQlpZigkbGlzdF9pdGVtX2NvdW50WzBdID4xICYmICRsaXN0X2l0ZW1fY291bnRbMV0gPjEgJiYgJGxpc3RfaXRlbV9jb3VudFsyXSA+MSAmJiAkbGlzdF9pdGVtX2NvdW50WzRdID4xKSB7CgkJCQkkU3RyYXdfZXhjID0gJFN0cmF3X2V4Yy00NTsKCQkJCSRsaXN0X2l0ZW1fY291bnRbM10gPSAkbGlzdF9pdGVtX2NvdW50WzNdKzE7CgkJCX0KCQkJaWYoJGxpc3RfaXRlbV9jb3VudFswXSA+MSAmJiAkbGlzdF9pdGVtX2NvdW50WzFdID4xICYmICRsaXN0X2l0ZW1fY291bnRbM10gPjEgJiYgJGxpc3RfaXRlbV9jb3VudFs0XSA+MSkgewoJCQkJJFN0cmF3X2V4YyA9ICRTdHJhd19leGMtNDU7CgkJCQkkbGlzdF9pdGVtX2NvdW50WzJdID0gJGxpc3RfaXRlbV9jb3VudFsyXSsxOwoJCQl9CgkJCWlmKCRsaXN0X2l0ZW1fY291bnRbMF0gPjEgJiYgJGxpc3RfaXRlbV9jb3VudFsyXSA+MSAmJiAkbGlzdF9pdGVtX2NvdW50WzNdID4xICYmICRsaXN0X2l0ZW1fY291bnRbNF0gPjEpIHsKCQkJCSRTdHJhd19leGMgPSAkU3RyYXdfZXhjLTQ1OwoJCQkJJGxpc3RfaXRlbV9jb3VudFsxXSA9ICRsaXN0X2l0ZW1fY291bnRbMV0rMTsKCQkJfQoJCQlpZigkbGlzdF9pdGVtX2NvdW50WzFdID4xICYmICRsaXN0X2l0ZW1fY291bnRbMl0gPjEgJiYgJGxpc3RfaXRlbV9jb3VudFszXSA+MSAmJiAkbGlzdF9pdGVtX2NvdW50WzRdID4xKSB7CgkJCQkkU3RyYXdfZXhjID0gJFN0cmF3X2V4Yy00NTsKCQkJCSRsaXN0X2l0ZW1fY291bnRbMF0gPSAkbGlzdF9pdGVtX2NvdW50WzBdKzE7CgkJCX0KCQl9CgkJaWYoJGxpc3RfaXRlbV9jb3VudFswXSA+MCAmJiAkbGlzdF9pdGVtX2NvdW50WzFdID4wICYmICRsaXN0X2l0ZW1fY291bnRbMl0gPjAgJiYgJGxpc3RfaXRlbV9jb3VudFszXSA+MCAmJiAkbGlzdF9pdGVtX2NvdW50WzRdID4wKSB7CgkJCWJyZWFrOwkJCQkJCQkJLy/tl4jsiJjslYTruYQg7Zes66mnIOu9keyVmOycvOuptCDrsJjrs7XrrLgg7YOI7LacCgkJfQoJfXdoaWxlKHRydWUpOwkJCQkJCQkJLy/tl4jrsJTrvZHquLAg64GdCgkkc3VtID0gJFN0cmF3KyRzdW07CQkJCQkJCS8v7ZeI67CUIOu9keuKlOuNsCDsgqzsmqntlZwg7KeA7ZG465286riwIOqwnOyImCDriITsoIHsspjrpqwKfXdoaWxlKCRpPCR0aW1lcyk7CmVjaG8gIu2XiOyImOyVhOu5hCDtl6zrqacgIi4kaS4i7ZqMIOu9keq4sCDtj4nqt6DqsJIgOiAiLiRzdW0vJGk7CgpmdW5jdGlvbiBQZXJjZW50X2RyYXcoJGl0ZW1zX2xpc3QsJHBlcmNlbnRfbGlzdCkgewogICAgJHJhbmdlX25vdyA9IDA7CiAgICAkcmFuZ2VfbGFzdCA9IDA7CiAgICAkZGVjaW1hbCA9IDQ7CiAgICBpZihjb3VudCgkcGVyY2VudF9saXN0KSAhPSBjb3VudCgkaXRlbXNfbGlzdCkpIHJldHVybiBmYWxzZTsKICAgICRkcmF3ID0gbXRfcmFuZCgxLHBvdygxMCwkZGVjaW1hbCkqYXJyYXlfc3VtKCRwZXJjZW50X2xpc3QpKTsKICAgIGZvcigkc2VxdWVuY2U9MDsgJHNlcXVlbmNlPGNvdW50KCRwZXJjZW50X2xpc3QpOyAkc2VxdWVuY2UrKykgewogICAgICAgICRyYW5nZV9ub3cgKz0gcG93KDEwLCRkZWNpbWFsKSokcGVyY2VudF9saXN0WyRzZXF1ZW5jZV07CiAgICAgICAgaWYoJHJhbmdlX25vdyA+PSAkZHJhdyAmJiAkcmFuZ2VfbGFzdCA8ICRkcmF3KSB7CiAgICAgICAgICAgIHJldHVybiAkaXRlbXNfbGlzdFskc2VxdWVuY2VdOwogICAgICAgIH1lbHNlewogICAgICAgICAgICAkcmFuZ2VfbGFzdCA9ICRyYW5nZV9ub3c7CiAgICAgICAgfQogICAgfQp9Cj8+