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

END</langsyntaxhighlight>

<langsyntaxhighlight AppleScriptlang="applescript">intercalate(", ", ¬

end tail</langsyntaxhighlight>

<langsyntaxhighlight lang="bbcbasic">REM >split

LOCAL c$, dsplit$, splitd$, i%

LET d$ = MID$( s$, i%, 1 )

= split$</langsyntaxhighlight>

<langsyntaxhighlight lang="csharp">using System;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="cpp">

std::string res ="";

for(auto prevch =: '\0';input){

for if(auto it = input!res.cbeginempty(); it&& ch != inputres.cendback();++it) {

int main() {

std::cout << auto input = R"split("gHHH5 ))YY++,,,///\)\", ", ") << std::endl;

<langsyntaxhighlight lang="clojure">(defn print-cchanges [s]

<langsyntaxhighlight lang="lisp">(defun split (string)

<langsyntaxhighlight lang="lisp">(defun split (string)

(split "gHHH5YY++///\\")</langsyntaxhighlight>

<langsyntaxhighlight lang="elixir">split = fn str ->

split.("gHHH5YY++///\\")</langsyntaxhighlight>

For this example a DO-loop stepping along the text is convenient, but in a larger context it would probably be most useful to work along the text with fingers L1 and L2 marking the start and finish positions of each sequence. <langsyntaxhighlight Fortranlang="fortran"> SUBROUTINE SPLATTER(TEXT) !Print a comma-separated list. Repeated characters constitute one item.

END</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

var b bytesstrings.BufferBuilder

}</langsyntaxhighlight>

<langsyntaxhighlight Haskelllang="haskell">import Data.List (group, intercalate)

main = putStrLn $ intercalate ", " (group "gHHH5YY++///\\")</langsyntaxhighlight>

<langsyntaxhighlight lang="j">splitChars=: (1 ,~ 2 ~:/\ ]) <;.2 ]

delimitChars=: ', ' joinstring splitChars</langsyntaxhighlight>

<langsyntaxhighlight lang="j"> delimitChars 'gHHH5YY++///\'

g, HHH, 5, YY, ++, ///, \</langsyntaxhighlight>

}</langsyntaxhighlight>

<langsyntaxhighlight JavaScriptlang="javascript">(() => {

'"use strict'";

// group :: [a] -> return {[[a]]

// elements equal under (===), such that };the

// concatenation of these },lists {is xs.

groupBy(a => b active: xs.length => 0a ?=== [b)(xs[0]] : [],);

// -> "g, HHH, 5, YY, ++, /// return [...groups, \\"g];

<langsyntaxhighlight scalalang="kotlin">// version 1.0.6

}</langsyntaxhighlight>

<langsyntaxhighlight Lualang="lua">function charSplit (inStr)

print(charSplit("gHHH5YY++///\\"))</langsyntaxhighlight>

<langsyntaxhighlight Mathematicalang="mathematica">StringJoin@@Riffle[StringCases["gHHH5YY++///\\", p : (x_) .. -> p], ", "]</langsyntaxhighlight>

<pre>{g, HHH, 5, YY, ++, ///, \}</pre>

=={{header|NimModula-2}}==

var prevChar : char = str[0]

for idx in 0 .. < str.len:

echo splitOnDiff("""gHHH5YY++///\""")</langsyntaxhighlight>

<langsyntaxhighlight lang="oorexx">Parse Arg str . /*obtain optional arguments from the CL*/

Say ol</langsyntaxhighlight>

Original:g, HHH, 5, YY, gHHH5YY++, ///, \

print(' output string: %s' % ', '.join(groups))</langsyntaxhighlight>

<langsyntaxhighlight lang="racket">#lang racket

", "))</langsyntaxhighlight>

<langsyntaxhighlight lang="rexx">/*REXX program splits a string based on change of character ───► a comma delimited list.*/

say ' output string: ' $ /*stick a fork in it, we're all done. */</langsyntaxhighlight>

say ' output string: ' result </langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">def split(str)

split("gHHH5YY++///\\")</langsyntaxhighlight>

<langsyntaxhighlight Rustlang="rust">fn splitter(string: &str) -> String {

let chars: Vec<char_> = string.chars().collect();

let mut result = Vec::<String>::new();

return chars[0..1].iter().map(|c| c ).collect();

let temp_result: String = chars[last_mismatch..i].iter().map(|c| c).collect();

result.push( temp_result );

if i == chars.len() - 1 {

let temp_result: String = chars[last_mismatch..chars.len()].iter().map(|c| c).collect();

result.push( temp_result );

return result.join(", ");

<langsyntaxhighlight lang="ruby">func group(str) {

say group(ARGV[0] \\ 'gHHH5YY++///\\').join(', ')</langsyntaxhighlight>

<langsyntaxhighlight lang="sml">(*

fun groupString str = String.concatWith ", " (map implode (group (explode str)))</langsyntaxhighlight>

=={{header|TclSwift}}==

<langsyntaxhighlight Tcllang="tcl">set string "gHHH5YY++///\\"

puts $string</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">fcn group(str){

group("gHHH5YY++///\\").println();</langsyntaxhighlight>