diff options
author | Erich Eckner <git@eckner.net> | 2019-01-10 10:58:35 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2019-01-10 10:58:35 +0100 |
commit | 9689618102d3693254f5fca08233e9182bf8787a (patch) | |
tree | cef222494a8890fd937b96093870230e89a2efb2 | |
parent | 5cf2e600b9eac373ce2296da5587ce9c7eefe6ab (diff) | |
download | markov-9689618102d3693254f5fca08233e9182bf8787a.tar.xz |
markov.lpr: line feed ends a word, too
-rw-r--r-- | markov.lpr | 1 | ||||
-rw-r--r-- | markov.lps | 4 |
2 files changed, 3 insertions, 2 deletions
@@ -71,6 +71,7 @@ begin reset(f); while not eof(f) do begin readln(f,s); + s:=s+' '; // lf ends a word, too current:=0; // reset current index for i:=1 to length(s) do begin current:=current*(length(i2c)+1) mod length(probabilities); @@ -7,9 +7,8 @@ <Unit0> <Filename Value="markov.lpr"/> <IsPartOfProject Value="True"/> - <IsVisibleTab Value="True"/> <TopLine Value="54"/> - <CursorPos X="40" Y="78"/> + <CursorPos X="37" Y="74"/> <UsageCount Value="23"/> <Loaded Value="True"/> </Unit0> @@ -34,6 +33,7 @@ <Unit3> <Filename Value="generate-random-word-from-wikipedia.sh"/> <IsPartOfProject Value="True"/> + <IsVisibleTab Value="True"/> <EditorIndex Value="3"/> <CursorPos X="55" Y="30"/> <UsageCount Value="23"/> |