From 96d443b55c990506e81f2c893e02245b7e2b5f4c Mon Sep 17 00:00:00 2001 From: erana Date: Tue, 7 Mar 2017 15:31:05 +0100 Subject: [PATCH] bugfix prime numbers gen --- s48/hawk-dns-server/db.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/s48/hawk-dns-server/db.scm b/s48/hawk-dns-server/db.scm index ec99cd8..b0a7df0 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 (= 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 (getpreime-rec (+ prime 1)) ))