Rep-string: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) m (→{{header|11l}}: Indented multi-line string literals) |
|||
Line 2,326:
</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
Mathematica is based on pattern-based matching, so this is very easily implemented:
<lang Mathematica>RepStringQ[strin_String]:=StringCases[strin,StartOfString~~Repeated[x__,{2,\[Infinity]}]~~y___~~EndOfString/;StringMatchQ[x,StartOfString~~y~~___]:>x, Overlaps -> All]</lang>
| |||