くだすれPerl（超初心者用）3

**nobodyさん** · 2009/03/31(火) 22:20:27

このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。

前スレ
くだすれPerl（超初心者用）2
http://pc11.2ch.net/test/read.cgi/php/1204488452/

関連スレ
Perlについての質問箱 39箱目
http://pc12.2ch.net/test/read.cgi/tech/1234181856/
Perlコーディング初心者質問スレ Part 59
http://pc11.2ch.net/test/read.cgi/php/1234752149/
【Perl上級者コーナーPart01】
http://pc11.2ch.net/test/read.cgi/php/1024741312/

**nobodyさん** · 2010/05/28(金) 21:46:28

1.0未満になる確率が相対的に上がりますからそうでしょうね

**nobodyさん** · 2010/05/28(金) 21:49:12

(!int(rand($i)))
普通はこう書くけどね
まあ確率は上がるんじゃないかな

**nobodyさん** · 2010/05/28(金) 21:56:22

my %result;
for (2.9, 2.7, 2.5, 2.3, 2.1) {
my $i = $_;
for (0..100000) { $result{$i}++ if !int(rand($i)) }
printf "%.1f: %d\n", $i, $result{$i};
}

割りとはっきり変わるね。