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

Content added Content deleted

Inline

@@ Line 643: / Line 643: @@
     writeln();
 }</lang>
+=={{header|Easyprog.online}}==
+<lang>a$ = "gHHH5YY++///\"
+a$[] = str_split a$
+c$ = a$[0]
+for i range len a$[]
+  if a$[i] <> c$
+    b$ &= ", "
+    c$ = a$[i]
+  .
+  b$ &= a$[i]
+.
+print b$</lang>
 =={{header|Elixir}}==