tente <div><br></div><div>POSIX::modf<br><br><div class="gmail_quote">2010/5/31 <span dir="ltr"><<a href="mailto:thiagoglauco@ticursos.net">thiagoglauco@ticursos.net</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Eu tenho o seguinte algoritmo para comparar números reais. Alguém tem uma<br>
forma melhor, menor, mais legível ou um módulo?<br>
<br>
# sao_iguais(NUM1, NUM2, PRECISAO) : Retorna "true" se os valores reais<br>
forem #iguais dentro da precisão determinada.<br>
<br>
sub sao_iguais {<br>
my ($num1, $num2, $precisao) = @_;<br>
return sprintf("%.${precisao}f", $num1) eq sprintf("%.${precisao}f", $num2);}<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<br>
</div>