bail out on words longer than 256 characters

1 files changed, 5 insertions, 0 deletions

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);