scheme实现正数求余

;;;正数求余（x % y）

(define ( mod x y )

      (if ( < x y )

           x

           ( mod (- x y) y )))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;  int mod ( int x, int y )

;;;  {

;;;     if ( x < y )

;;;        return x;

;;;     else

;;;        mod ( x-y, y)

;;;  } // end function  mod