Scheme咋实现取余数(%)

在Scheme里可以用(remainder a b)来求a%b的值。
■网友
用减法
■网友
有内置的remainder函数。
■网友
(define (myremainder n x) (if (\u0026lt; n 0) (+ n x) (myremainder (- n x) x)))
■网友
先设一个变量存储余数,然后用被除数减除数,递归,当被除数小于除数时,返回值
■网友
内置modulo函数~~(顺带插上刚写的scheme求质数的过程)(define (prime? num)\t(define (prime-iteration num div)\t\t(if (= div 1)\t\t\t#t\t\t\t(if (= (modulo num div) 0)\t\t\t\t#f\t\t\t\t(prime-iteration num (- div 1))\t\t\t)\t\t)\t)\t(if (\u0026lt; num 2)\t\t#f\t\t(prime-iteration num (- num 1)) ;函数首先执行这一部分\t))


    推荐阅读