markov generate the bible

1 files changed, 26 insertions, 0 deletions

diff --git a/toplevel.scm b/toplevel.scm
new file mode 100644
index 0000000..ee7bcca
--- /dev/null
+++ b/toplevel.scm
@@ -0,0 +1,26 @@
+(load "markov.chicken.so")
+(import markov)
+
+(display "Generating table (this may take a while)\n" (current-error-port))
+(define table (make-table-from-file "kjv.txt"))
+(display "Done generating.\n")
+
+(define (generate-until-word* current collected limits)
+  (if (member current limits)
+      (reverse collected)
+      (generate-until-word* (generate-next-word table current)
+                            (cons current collected)
+                            limits)))
+
+(define (generate-until-word limits)
+  (generate-until-word* (generate-next-word table (car limits))
+                        '()
+                        limits))
+
+(define (make-a-bible-verse)
+  (generate-until-word '("startofverse" "startofchapter" "startofbook")))
+
+(define (make-a-book-of-the-bible)
+  (generate-until-word '("startofbook")))
+
+(display "Try (make-a-bible-verse) and (make-a-book-of-the-bible).\n")