[Jscheme-user] Re: Modulo function (Ken Anderson)

[Jonathan A R. <ja...@mu...>]

From Scheme 48 (for heaven's sake don't even think about IP):

(define (modulo x y)
   (let ((r (remainder x y)))
      (if (> y 0)
          (if (< r 0)
              (+ r y)
              r)
          (if (> r 0)
              (+ r y)
              r))))

Easily translated into Java.

As I remember it took several iterations to get this right.

-Jonathan