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