Split a character string based on change of character: Difference between revisions

m
Line 1,054:
=={{header|EasyLang}}==
 
<lang>a$ = "gHHH5YY++///\\"
a$[] = str_charsstrchars a$
ccp$ = a$[0]
for ic$ range lenin a$[]
if ac$[i] <> ccp$
bs$ &= ", "
ccp$ = ac$[i]
.
bs$ &= ac$[i]
.
print bs$</lang>
{{out}}
<pre>
2,056

edits