scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bugfix remainder prime calc

This commit is contained in:
erana 2017-03-06 11:27:36 +01:00
parent 0c2255ef77
commit 8988e22928
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
s48/hawk-dns-server/db.scm
View File

@ -42,8 +42,10 @@
(set! *prime (getprime-rec *prime))) (set! *prime (getprime-rec *prime)))
(define (getprime-rec prime) (define (getprime-rec prime)
(if (= 0 (+ (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10)))) (if (= 0 (+ (remainder prime 2) (remainder prime 3) (remainder prime 5) (remainder prime 7) (remainder prime 10)))
(getpreime-rec (+ prime 1)))) prime
(getpreime-rec (+ prime 1))
))
(define (integer->ascii (define (integer->ascii