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 19:30, 11 November 2022
, 1 year ago→{{header|Phix}}
Line 1,970:
g, HHH, 5, YY, ++, ///, \
</pre>
=={{header|Phixmonti}}==
<syntaxhighlight lang="Phixmonti">/# Rosetta Code problem: https://rosettacode.org/wiki/Split_a_character_string_based_on_change_of_character
by Galileo, 11/2022 #/
include ..\Utilitys.pmt
""
"gHHH5YY++///\" 1 get >ps
len for get
dup tps == if
rot swap chain swap
else
ps> drop >ps
swap ", " tps chain chain swap
endif
endfor
pstack</syntaxhighlight>
{{out}}
<pre>
["g, HHH, 5, YY, ++, ///, \", "gHHH5YY++///\"]
=== Press any key to exit ===</pre>
=={{header|PicoLisp}}==
| |||