RosettaCodeData/Task/Rep-string/Oforth/rep-string.oforth
2016-12-05 23:44:36 +01:00

6 lines
150 B
Text

: repString(s)
| sz i |
s size dup ->sz 2 / 1 -1 step: i [
s left(sz i - ) s right(sz i -) == ifTrue: [ s left(i) return ]
]
null ;