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 15:22, 13 July 2017
, 7 years agojq
(Added ZX Spectrum BASIC) |
(jq) |
||
Line 601:
{{Out}}
<pre>g, HHH, 5, YY, ++, ///, \</pre>
=={{header|jq}}==
<lang jq>def splitAtChange(sep):
explode
| if length==0 then []
else .[0] as $first
| reduce .[1:][] as $x ([[$first]];
if $x == .[-1][0] then .[-1] += [$x] else . + [[$x]] end)
end
| map(implode)
| join(sep) ;
"aabbcc" | splitAtChange(", ")</lang>
{{out}}
<pre>"aa, bb, cc"</pre>
=={{header|Kotlin}}==
|