RE: Round a Number to Any Place

Nice work. Here are, I think, two improvements:

sub round {
    my( $num, $prec )= @_;
    return  int( $num/$prec + 0.5 - ($num<0) ) * $prec;
}
[download]

This is slightly simpler and rounds negative numbers properly.

- tye (but my friends call me "Tye")

Comment on RE: Round a Number to Any Place Download Code

Replies are listed 'Best First'.
RE (2): Round a Number to Any Place by nuance (Hermit) on Aug 30, 2000 at 00:09 UTC
We've done this number rounding thing before. Have a look at the thread following this node to see why the 0.5 thing isn't quite exact. *Nuance*	[reply]