Paste: multiples

Author: randy7
Mode: factor
Date: Wed, 14 Jan 2009 16:20:08
Plain Text |
USING: kernel math math.functions ;

: round-prev ( number x -- number )
    [ [ - ] [ / ] bi ceiling ] [ * ] bi ;

: round-next ( number x -- number )
    [ [ + ] [ / ] bi floor ] [ * ] bi ;

New Annotation

Summary:
Author:
Mode:
Body: