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 23:51, 16 October 2018
, 5 years ago→{{header|Factor}}: DRY
m (→{{header|Factor}}: DRY) |
|||
Line 532:
: splitc ( str -- str' ) [ = ] monotonic-split ", " join ;
"gHHH5YY++///\\"
"aaabbccccdeeff" [ splitc print ] bi@</lang>
{{out}}
<pre>
|