aboutsummaryrefslogtreecommitdiff
path: root/dump/special-forms.scm
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-18 17:16:03 +0300
committerMunyoki Kilyungi2023-07-21 14:36:40 +0300
commita5f324fc6af0098ddd01799142c34102d4e7e9c8 (patch)
tree8a0b7877ae991cb78a0630338db00e5020aa7109 /dump/special-forms.scm
parent9c5473775d2ab19ad8282e913459a525f144b806 (diff)
downloadgn-transform-databases-a5f324fc6af0098ddd01799142c34102d4e7e9c8.tar.gz
Use size of the results set to come up with sparql example
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump/special-forms.scm')
-rw-r--r--dump/special-forms.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index 738c48c..88c2e82 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -498,8 +498,8 @@ The above query results to triples that have the form:
(let ((n (truncate
(+ (max (exact-integer-sqrt (length result))) 1))))
(if (< n 3)
- (truncate (/ (length result) 2))
- n)))))
+ (length result)
+ n)))))
(format #t "SELECT ?s ?p ?o WHERE { ~%")
(for-each (match-lambda
((predicate . object)