Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!olivea!samsung!sdd.hp.com!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!ucbvax!ucdavis!sunny!poage
From: poage@sunny.ucdavis.edu (Tom Poage)
Newsgroups: comp.lang.perl
Subject: Re: Artitmetic functions
Message-ID: <588@sunny.ucdavis.edu>
Date: 26 Feb 91 21:32:09 GMT
References: <1991Feb22.215921.16411@uvaarpa.Virginia.EDU>
Reply-To: poage@sunny.ucdavis.edu (Tom Poage)
Organization: UCDMC Clinical Engineering, Sacto., CA
Lines: 16


Not too much too add ...

	sub floor {
		local($f) = @_;
		int(($f < int $f) ? --$f : $f);
	}

	sub ceil {
		local($f) = @_;
		int(($f > int $f) ? ++$f : $f);
	}
-- 
Tom Poage, Clinical Engineering
University of California, Davis, Medical Center, Sacramento, CA
poage@sunny.ucdavis.edu  {...,ucbvax,uunet}!ucdavis!sunny!poage