ceil without ceil

This is a comment on the FAQ Does perl have a round function? What about ceil() and floor()? Trig functions?. See also vroom's How do I round a floating point number?

An effective way to "ceil" if you don't have a perl version capable of "ceil" (such as a specialized small Windows distro), you can effectively "ceil" this way: $ceiled_number = int( $float + 0.99999999 );

Comment on ceil without ceil Download Code

Replies are listed 'Best First'.

Re: ceil without ceil
by why_bird (Pilgrim) on Mar 13, 2008 at 14:48 UTC

sub RoundUp
{
$float=$_[0];
...
..check that your input is valid here..
...
my $rounded_number=$float;
  if($float==int($float)){
  }elsif($float>0){
     $rounded_number=int($float+1);
###################################
## and optionally, depending how ##
## you want to define ceil() on  ##
## a number less than 0..        ##
  }elsif($float<0){
     $rounded_number=int($float-1); 
  }
###################################

return rounded_number;
}
[download]

waits for someone to point out the error in her method

........
Those are my principles. If you don't like them I have others.
-- Groucho Marx
.......

[reply]
[d/l]


Problems? Is your data what you think it is?
	PerlMonks