markov generate the bible

1 files changed, 30 insertions, 0 deletions

diff --git a/kjv2delimited.scm b/kjv2delimited.scm
new file mode 100644
index 0000000..3c62a3d
--- /dev/null
+++ b/kjv2delimited.scm
@@ -0,0 +1,30 @@
+(import sql-de-lite)
+
+(define (!= x y)
+  (not (= x y)))
+
+(with-output-to-file "kjv.txt"
+  (lambda ()
+    (call-with-database "bible-sqlite.db"
+      (lambda (db)
+        (let ((previous-book 0)
+            (previous-chapter 0)
+            (previous-verse 0))
+          (query (for-each-row
+                (lambda (row)
+                  (let ((book (car row))
+                        (chapter (cadr row))
+                        (verse (caddr row))
+                        (text (cadddr row)))
+                    (when (!= book previous-book)
+                      (display "startofbook\n"))
+                    (when (!= chapter previous-chapter)
+                      (display "startofchapter\n"))
+                    (when (!= verse previous-verse)
+                      (display "startofverse\n"))
+                    (set! previous-book book)
+                    (set! previous-chapter chapter)
+                    (set! previous-verse verse)
+                    (display text)
+                    (newline))))
+                 (sql db "select b,c,v,t from t_kjv")))))))