Mod

USAGE

   MOD a b

DESCRIPTION

Compute a nonnegative remainder of A divided by B.

MOD is a function value.

ARGUMENTS

• a (number! money! time!)
• b -- Must be nonzero. (number! money! time!)

#SOURCE

mod: make function! [  [
    "Compute a nonnegative remainder of A divided by B."
    [catch]
    a [number! money! time!]
    b [number! money! time!] "Must be nonzero."
    /local r
][
    all [negative? r: a // b r: r + b]
    a: abs a
    either all [a + r = (a + b) positive? r + r - b] [r - b] [r]
] ]