near/computersandblues.frantisek
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add examples function for a nicer REPL time

Browse source
This commit is contained in:
heyarne 2020-04-09 10:26:24 +02:00
commit b17f556758
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/heyarne/frantisek_kafka/samsa.clj
View file

@ -99,6 +99,13 @@
(defn count-words [sentence] (defn count-words [sentence]
(inc (count (re-seq #" " 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]}] (defn start! [{:keys [corpus order interval]}]
(let [markov-chain (->> (read-corpus corpus) (let [markov-chain (->> (read-corpus corpus)
(markov/chain order))] (markov/chain order))]