(def t (clojure.string/replace s #"\s+" " "))
string t = Regex.Replace(s, @"\s+", " ");
string t = Regex.Replace(s, " +", " ");
var t = s.replaceAll(RegExp(r"\s+"), " ");
singleSpace(Text) ->
singleSpace(0, Text).
singleSpace(_, []) -> [];
singleSpace(32, [32 | Rest]) ->
singleSpace(32, Rest);
singleSpace(32, [Ch | Rest]) ->
[Ch] ++ singleSpace(Ch, Rest);
singleSpace(Last, [Ch | Rest]) ->
[Ch] ++ singleSpace(Ch, Rest).
%%singleSpace("this is a text with multiple spaces").
whitespaces := regexp.MustCompile(`\s+`)
t := whitespaces.ReplaceAllString(s, " ")
def t = s.replaceAll(/\s+/, ' ')
let t = s.replace(/\s+/g, ' ');
String t = s.replaceAll(" +", " ");
String t = s.replaceAll("\\s+", " ");
local t = s:gsub("%s+", " ")
$t = preg_replace('/\s+/', ' ', $s);
$t = $s;
do $t = str_replace(' ', ' ', $t, $count); while($count);
t := ReplaceRegExpr('\s+',s,' ',False);
t := s;
while Pos(' ',t) > 0 do
t := StringReplace(t, ' ', ' ', [rfReplaceAll]);
var
i, j: integer;
t,s: string;
const
whitespace = [#32,#13,#10,#9];
begin
....
t := '';
j := 0;
setlength(t, length(s));
for i := 1 to length(s) do
if not ((s[i] in whitespace) and
((i < length(s)) and (s[i+1] in whitespace))) then
begin
inc(j);
t[j] := s[i];
end;
setlength(t,j);
end.
my $t = $s;
$t =~ s/\s+/ /g;
my $t = $s;
$t =~ s/ +/ /g;
t: str = " ".join(s.split())
let re = Regex::new(r"\s+").unwrap();
let t = re.replace_all(s, " ");
Dim t As String = Regex.Replace(s, "\s+", " ")
Dim t As String = Regex.Replace(s, " +", " ")