Data update
This commit is contained in:
parent
4bb20c9b71
commit
cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
|
|
@ -1,7 +1,7 @@
|
|||
func$ repstr s$ .
|
||||
sl = len s$ div 2 + 1
|
||||
while sl > 1
|
||||
r$ = substr s$ sl 999
|
||||
r$ = substr s$ sl 99999
|
||||
if r$ = substr s$ 1 len r$
|
||||
return substr r$ 1 (sl - 1)
|
||||
.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue