From c3966a1098961eda7c2a33e8e4dd8f3515700393 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Arne=20Schl=C3=BCter?= Date: Thu, 24 Jan 2019 14:49:03 +0100 Subject: [PATCH] Prefer short sentences --- src/heyarne/frantisek_kafka/samsa.clj | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/src/heyarne/frantisek_kafka/samsa.clj b/src/heyarne/frantisek_kafka/samsa.clj index 852db23..4293eb0 100644 --- a/src/heyarne/frantisek_kafka/samsa.clj +++ b/src/heyarne/frantisek_kafka/samsa.clj @@ -87,6 +87,9 @@ (println message) (System/exit status)) +(defn count-words [sentence] + (inc (count (re-seq #" " sentence)))) + (defn start! [{:keys [corpus order interval]}] (let [markov-chain (->> (read-corpus corpus) (markov/chain order))] @@ -95,8 +98,10 @@ (log/warn "Please set :access-token and :mastodon-instance in the .env file.") (log/warn "The bot is running in debug mode for now.")) (loop [sentence (generate-sentence markov-chain)] - (send-toot! sentence) - (Thread/sleep (* interval 1000)) + (when (< (count-words sentence) 20) + ;; shorter sentences are more likely to be coherent. :) + (send-toot! sentence) + (Thread/sleep (* interval 1000))) (recur (generate-sentence markov-chain))))) (defn -main [& args]