note
demerphq
<!--
<p><em></em></p>
<code></code>
<i></i>
<b></b>
[ ]
-->
<p>
Your code is better written as
</p>
<code>
sub loop_factorial {
my ($n, $total) = @_;
$total = 1 unless $total;
while ($n) {
($n,$total) = ($n - 1, $total * $n);
}
return $total
}
</code>
<p>
Which is more efficient, and is IMO a better example of what a compiler that optimizes tail recursion would convert it to.
</p>
<br />
<div class="pmsig">
<div class="pmsig-108447">
---
<br />
demerphq<br />
<br />
<sub>
<ol>
<p><em>First they ignore you, then they laugh at you, then they fight you, then you win.
</em><br /> -- Gandhi</p>
</ol>
</sub>
<!--
<hr />
<sub>
<p>
<strong>• Update: </strong><br />
</p>
</sub>
-->
<br />
</div>
</div>
161611
334306