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

Content added Content deleted
Line 1,114: Line 1,114:
cp$ = a$[1]
cp$ = a$[1]
for c$ in a$[]
for c$ in a$[]
if c$ <> cp$
if c$ <> cp$
s$ &= ", "
s$ &= ", "
cp$ = c$
cp$ = c$
.
.
s$ &= c$
s$ &= c$
.
.
print s$
print s$
Retrieved from "https://rosettacode.org/wiki/Split_a_character_string_based_on_change_of_character"