抽選機能のテストがうまくいかない

Question

前提・実現したいこと

現在、当たりはずれを判定するプログラムを作成しています。
乱数を生成して、あらかじめ設定した数値を下回った場合に当選するというものなのですが、
プログラムがちゃんと動いているかのテスト時、例えば100回ループしたら100回当選or落選する、といった極端な結果になってしまいます。

私の書いたプログラムが正しいか、間違っていればどのように修正すれば良いか、
あるいは欲しい結果がどうすれば得られるか、ご教授いただければ幸いです･･･

よろしくお願い致します。

発生している問題・エラーメッセージ

【100回ループしたら100回当選or落選する】といった極端な結果になってしまう

該当のソースコード

$win_num = 0;
$lose_num = 0;
$rand_num = mt_rand() / mt_getrandmax();
// 当選確率はどの数値でも同じような結果でした
$win_per = 100/10000;

for($i=0; $i<100; $i++) {
	if($rand_num < $win_per) {
		$win_num += 1;
	} else {
		$lose_num += 1;
}

echo "当選数は".$win_num."です";
echo "落選数は".$lose_num."です";

試したこと

while文でも試しましたが、同じような結果でした。

Answer 1

単純に抽選をfor文の中でやらないと、意味がありません

Comments

[ankle_uncle]

ご回答ありがとうございます。
私の認識ではfor文の中で抽選しているつもりだったのですが･･･
恐れ入りますが、もう少し詳しく教えていただけますでしょうか？

[ankle_uncle]

自己解決しました！
yambejpさんが仰る「抽選をfor文の中でやらないと」というのは、乱数自体をfor文内で生成するということだったんですね･･･

乱数を生成している$rand_numをfor文に入れたところ、無事想定の動作をしてくれました！
ご回答いただきありがとうございました！