note
jwkrahn
<blockquote><i>
It is more idiomatic (and often simpler) to use Perl-style rather than C-style loops.
</i></blockquote>
<p>
Yes, but it won't work if the numbers are too large for integers and have to use floating point. Then only C style loops will work.
</p>
<blockquote><i><c>
my @collect = map 0, 0 .. NUM_TOSSES;
</c></i></blockquote>
<p>
Why are you initializing <c>@collect</c> with <c>NUM_TOSSES + 1</c> elements?
</p>
<p>
The idiomatic way to initialize <c>@collect</c> with <c>NUM_TOSSES</c> elements is usually:
</p>
<c>
my @collect = ( 0 ) x NUM_TOSSES;
</c>
<blockquote><i><strike><c>
for ($i = 0; $i < $numTosses+1; $i++) {
foreach my $tailsCt ( 0 .. NUM_TOSSES )
</c></i></blockquote>
<p>
You have an off-by-one error, it should be:
</p>
<c>
foreach my $tailsCt ( 0 .. NUM_TOSSES - 1 )
</c>
<p>
</strike>
<b>Update:</b> oops, I misread the original code.
</p>
892293
892669