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

bugfix prime numbers gen

This commit is contained in:
erana 2017-03-07 15:31:05 +01:00
parent 8988e22928
commit 96d443b55c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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