From 59b84c6e478810112c88c67035c38006a01039be Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 10 Jan 2019 13:43:03 +0100
Subject: bail out on words longer than 256 characters

---
 markov.lpr | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/markov.lpr b/markov.lpr
index c2d27a0..005bf35 100644
--- a/markov.lpr
+++ b/markov.lpr
@@ -127,6 +127,11 @@ begin
         break
       else
         s:=s+i2c[current mod (length(i2c)+1)];
+      if length(s)>256 then begin
+        dec(count);
+        s:=f[0];
+        break;
+      end;
     until false;
     if not f.hatZeile(s,false) then begin;
       writeln(s);
-- 
cgit v1.2.3-54-g00ecf