From b17f556758cbcf5f03ef90dd4496727f54b12601 Mon Sep 17 00:00:00 2001 From: heyarne Date: Thu, 9 Apr 2020 10:26:24 +0200 Subject: [PATCH] Add examples function for a nicer REPL time --- src/heyarne/frantisek_kafka/samsa.clj | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/heyarne/frantisek_kafka/samsa.clj b/src/heyarne/frantisek_kafka/samsa.clj index ac07cbc..d09a907 100644 --- a/src/heyarne/frantisek_kafka/samsa.clj +++ b/src/heyarne/frantisek_kafka/samsa.clj @@ -99,6 +99,13 @@ (defn count-words [sentence] (inc (count (re-seq #" " sentence)))) +(defn examples + "Will return a preview of the text that will be generated." + [corpus order] + (let [markov-chain (->> (read-corpus corpus) + (markov/chain order))] + (repeatedly 10 #(generate-sentence markov-chain)))) + (defn start! [{:keys [corpus order interval]}] (let [markov-chain (->> (read-corpus corpus) (markov/chain order))]