Split a character string based on change of character: Difference between revisions
Split a character string based on change of character (view source)
Revision as of 07:33, 2 July 2024
, 5 days agoAdd Refal
Not a robot (talk | contribs) (add SETL) |
Not a robot (talk | contribs) (Add Refal) |
||
Line 2,466:
* {MAN, ZERO WIDTH JOINER, WOMAN, ZERO WIDTH JOINER, GIRL, ZERO WIDTH JOINER, BOY} x 1
=={{header|Refal}}==
<syntaxhighlight lang="refal">$ENTRY Go {
= <Prout <Join (', ') <Split 'gHHH5YY++///\\'>>>;
};
Split {
(e.Cur) = (e.Cur);
(e.Cur s.1) s.1 e.X = <Split (e.Cur s.1 s.1) e.X>;
(e.Cur) s.1 e.X = (e.Cur) <Split (s.1) e.X>;
s.1 e.X = <Split (s.1) e.X>;
};
Join {
(e.Joiner) = ;
(e.Joiner) (e.Str) = e.Str;
(e.Joiner) (e.Str) e.Strs = e.Str e.Joiner <Join (e.Joiner) e.Strs>;
};</syntaxhighlight>
{{out}}
<pre>g, HHH, 5, YY, ++, ///, \</pre>
=={{header|REXX}}==
===version 1===
| |||