Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: OT: Integer rounding?

by Ryszard (Priest)
on Mar 23, 2004 at 19:13 UTC ( #339125=note: print w/replies, xml ) Need Help??


in reply to OT: Integer rounding?

After a bit more googling i found the answer:
dataless <dataless767@hotmail.com> wrote in article <a8liar$m91$1@helle.btinternet.com>... > Hi all, > Can anyone recommend an algorithm to round an integer to the nearest + 5 or > 10? Let's round n to the nearest five first: Divide n by 5 Add 0.5 to n Discard the fractional part of n Multiply n by 5 Now let's round to the nearest ten: Divide n by 10 Add 0.5 to n Discard the fractional part of n Multiply n by 10 Now let's round to the nearest seven: Divide n by 7 Add 0.5 to n Discard the fractional part of n Multiply n by 7 Do you see a pattern? -- Bringing you today's technology tomorrow...
or in perl
#!/usr/bin/perl -w use strict; my $prec = 5; my $number = 32; $\="\n"; print int(($number/$prec)+.5)*$prec;
smaller, anyone?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://339125]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (2)
As of 2021-04-17 05:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?