Execute a Markov algorithm: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,561: / Line 3,561: @@
     Terms := s.Split([' -> ']);
     if Length(Terms) <> 2 then exit(False);
-    r.Pattern := Terms[0].TrimRight;
+    r.Pattern := Terms[0].Trim;
-    if r.Pattern = '' then exit(False);
+    r.Replacement := Terms[1].Trim;
-    r.Replacement := Terms[1].TrimLeft;
     r.Terminating := False;
     if (r.Replacement <> '') and (r.Replacement[1] = '.') then begin
       r.Terminating := True;
       Delete(r.Replacement, 1, 1);
     end;
     Result := True;
   end;
@@ Line 3,602: / Line 3,601: @@
   repeat
     Applied := False;
-    for r in Rules do
+    for r in Rules do begin
-      if Result.IndexOf(r.Pattern) >= 0 then begin
+      if r.Pattern = '' then begin
-        Result := Result.Replace(r.Pattern, r.Replacement);
+          Result := r.Replacement + Result;
+          Applied := True;
+      end else begin
+        Applied := Result.IndexOf(r.Pattern) >= 0;
+        if Applied then
+          Result := Result.Replace(r.Pattern, r.Replacement);
+        end;
+      if Applied then begin
         if r.Terminating then exit;
-        Applied := True;
         break;
       end;
+    end;
   until not Applied;
 end;