RosettaCodeData/Task/Rep-string/Mathematica/rep-string-1.math
2023-07-01 13:44:08 -04:00

1 line
168 B
Text

RepStringQ[strin_String]:=StringCases[strin,StartOfString~~Repeated[x__,{2,\[Infinity]}]~~y___~~EndOfString/;StringMatchQ[x,StartOfString~~y~~___]:>x, Overlaps -> All]