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

db with prim hash - bufgix

This commit is contained in:
erana 2017-03-06 07:09:55 +01:00
parent 4e4d4121b5
commit 254e597490
2 changed files with 2 additions and 2 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 (= 1 (not (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10)))) (if (= 0 (+ (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10))))
(getpreime-rec (+ prime 1)))) (getpreime-rec (+ prime 1))))
(define (integer->ascii (define (integer->ascii

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 (not (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10))) (if (= 1 (not (and (/ prime 2) (/ prime 3) (/ prime 5) (/ prime 7) (/ prime 10))))
(getpreime-rec (+ prime 1)))) (getpreime-rec (+ prime 1))))
(define (integer->ascii (define (integer->ascii