From 254e59749090ce64879e1291755ea8ae1c8a0a6b Mon Sep 17 00:00:00 2001 From: erana Date: Mon, 6 Mar 2017 07:09:55 +0100 Subject: [PATCH] db with prim hash - bufgix --- s48/hawk-dns-server/db.scm | 2 +- s48/hawk-dns-server/db.scm~ | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/s48/hawk-dns-server/db.scm b/s48/hawk-dns-server/db.scm index ce604a6..9dd0a85 100644 --- a/s48/hawk-dns-server/db.scm +++ b/s48/hawk-dns-server/db.scm @@ -42,7 +42,7 @@ (set! *prime (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)))) (define (integer->ascii diff --git a/s48/hawk-dns-server/db.scm~ b/s48/hawk-dns-server/db.scm~ index 1684004..ce604a6 100644 --- a/s48/hawk-dns-server/db.scm~ +++ b/s48/hawk-dns-server/db.scm~ @@ -42,7 +42,7 @@ (set! *prime (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)))) (define (integer->ascii