Rep-string: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add Refal |
|||
Line 1,433:
sl = len s$ div 2 + 1
while sl > 1
r$ = substr s$ sl
if r$ = substr s$ 1 len r$
return substr r$ 1 (sl - 1)
| |||