Data commit

Task/Rep-string/Delphi/rep-string.delphi

@@ -0,0 +1,46 @@
+program Rep_string;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils;
+
+const
+  m =   '1001110011'#10 +
+        '1110111011'#10 +
+        '0010010010'#10 +
+        '1010101010'#10 +
+        '1111111111'#10 +
+        '0100101101'#10 +
+        '0100100'#10 +
+        '101'#10 +
+        '11'#10 +
+        '00'#10 +
+        '1';
+
+function Rep(s: string; var sub:string): Integer;
+var
+  x: Integer;
+begin
+  for x := s.Length div 2 downto 1 do
+  begin
+    sub :=  s.Substring(x);
+    if s.StartsWith(sub) then
+      exit(x);
+  end;
+  sub := '';
+  Result := 0;
+end;
+
+begin
+  for var s in m.Split([#10]) do
+  begin
+    var sub := '';
+    var n := rep(s,sub);
+    if n > 0 then
+      writeln(format('"%s"  %d rep-string "%s"', [s, n, sub]))
+    else
+      writeln(format('"%s"  not a rep-string', [s]));
+  end;
+  {$IFNDEF UNIX}readln;{$ENDIF}
+end.