Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Best way to round a number.

by Marshall (Abbot)
on Oct 25, 2012 at 05:15 UTC ( #1000761=note: print w/replies, xml ) Need Help??

in reply to Best way to round a number.

Another possibility:
use strict; use warnings; my @nums = qw (0 1 4 5 6 11 14 15 16 20 24 25 26 30 34 35 36); foreach (@nums) { print "in=$_\t rounded=", round_nearest5($_), "\n"; } sub round_nearest5 # for an positive integer numeric value { my $in = shift; my ($last_digit) = $in =~ /(\d)\s*$/; if ($last_digit <5 and $in >= 10 ) { $in =~ s/(\d)$/0/; } elsif ($last_digit >=5) { $in += (10-$last_digit); } return $in; } __END__ in=0 rounded=0 in=1 rounded=1 in=4 rounded=4 in=5 rounded=10 in=6 rounded=10 in=11 rounded=10 in=14 rounded=10 in=15 rounded=20 in=16 rounded=20 in=20 rounded=20 in=24 rounded=20 in=25 rounded=30 in=26 rounded=30 in=30 rounded=30 in=34 rounded=30 in=35 rounded=40 in=36 rounded=40

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1000761]
[shmem]: choroba: the correct spelling is corretto
[shmem]: ...for espresso
[LanX]: due coretti, per favore! ;-)
[shmem]: grappa, ginebra o amaretto?

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (11)
As of 2017-03-28 12:09 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (330 votes). Check out past polls.