Script Library: round-2.r

Script Library: 1247 scripts

round-2.r

REBOL [
        File: %round-2.r
        Date: 23-july-2004
        Title: "Round Function"
        Purpose: "A function to round a number"
                     Author: "Marco"
        Library: [
                          level: 'intermediate
                          platform: 'all
                          type: [tutorial tool]
                          domain: [math]
                          tested-under: [View 1.2.47.3.1 Windows XP]
                          support: %marco--ladyreb--org
                          license: PD
    ]
]
round: func [
    "Rounds a number"
    number [number!]
    /to precision [number!] "to a given precision"
    /at place [integer!] "at a given place"
    /up /down
][
    to: any [
        all [at power 10 multiply place -1]
        precision
        1
    ]
    precision: multiply sign? number any [
        all [up 1]
        all [down 0]
        .5
    ]
    multiply subtract number: add divide number to precision remainder number 1 to
]

Notes

email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
(marco:ladyreb:org)