[REBOL] Nonnegative remainder

From: lmecir:geocities at: 2-Aug-2000 21:15

Hi,

does anybody know a simpler way how to compute:

mod: func [
    {compute a non-negative remainder}
    a [number!]
    b [number!]
    /local r
] [
    either negative? r: a // b [
        r + abs b
    ] [r]
]

Regards
    Ladislav

[1] · 2 · See whole thread