Logo

Programming-Idioms

  • PHP
  • Haskell

Idiom #53 Join a list of strings

Concatenate elements of string list x joined by the separator ", " to create a single string y.

Turning the strings "eggs", "butter", "milk" into the string "eggs, butter, milk" 
import Data.List
y = intercalate ", " x
import qualified Data.Text as T
{-# LANGUAGE OverloadedStrings #-}
y :: T.Text
y = T.intercalate ", " x

The first line allows the string literal ", " to be a type other then type String. In this case it is automatically converted to type Text.
This version uses Text as a common replacement for the built-in String type.

The type annotation on the second line is optional and can be omitted.
$y = implode(', ', $x);
with Ada.Containers.Indefinite_Vectors; use Ada.Containers;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
declare
   Last : Cursor := X.Last;
   Y : Unbounded_String;
         
begin
   for C in X.Iterate loop
      Y := Y & Element (C) & (if C = Last then "" else ", ");
   end loop;
end;
New implementation...
< > ⌨
programming-idioms.org 
y = intercalate ", " x
{-# LANGUAGE OverloadedStrings #-}
y :: T.Text
y = T.intercalate ", " x
$y = implode(', ', $x);
declare
   Last : Cursor := X.Last;
   Y : Unbounded_String;
         
begin
   for C in X.Iterate loop
      Y := Y & Element (C) & (if C = Last then "" else ", ");
   end loop;
end;
#define DELIM ", "
#define L 64

char y[L] = {'\0'};

for (int i = 0; i < N; ++i)
{
    if (i && x[i][0])
        strcat(y, DELIM);
    
    strcat(y, x[i]);
}
(clojure.string/join "," '("abc" "def" "ghi") )
std::vector<std::string> x;
std::string y;
const char* const delim = ", ";

switch (x.size())
{
	case 0: y = "";   break;
	case 1: y = x[0]; break;
	default:
		std::ostringstream os;
		std::copy(x.begin(), x.end() - 1,
			std::ostream_iterator<std::string>(os, delim));
		os << *x.rbegin();
		y = os.str();
}
y = x | views::join_with(',') | to<std::string>();
string y = string.Join(", ", x);
string y = x.join(", ");
y = x.join(', ');
y = Enum.join(x, ", ")
Y = string:join(X, ",").
  write (unit=y,fmt='(*(A,:,", "))') x


y := strings.Join(x, ", ")
String y = x.join(', ')
y = x.join(", ");
String y = x.get(0);
int i = 1, n = x.size();
while (i < n)
    y = y + ", " + x.get(i++);
String y = String.join(", ", x);
String y = x.stream()
    .reduce((a, b) -> a + ", " + b)
    .get();
val y = listOf(x).joinToString(", ")
(setf y (format nil "~{~a~^,~}" x))
(setf y (reduce (lambda (a b)
                   (concatenate 'string a ", " b))
                 x))
(defvar y (format nil "~{~A~^, ~}" x))
y = table.concat(x, ", ")
NSString y=[x componentsJoinedByString:@", "];
var
  _x: Array of string;
  _y: String;
  i: Integer;
begin
  _y := ''; //initialize result to an empy string
  // assume _x is initialized to contain some values
  for i := Low(_x) to High(_x) do
  begin
    _y := _y + _x[i];
    if i < High(_x) then _y := _y + ';';
  end;
end;
$y = join(", ", @x)
y = ', '.join(map(str, x))
y = ', '.join(x)

f = lambda a, b: f'{a}, {b}'
y = reduce(f, x)
y = x.join(", ")
let y = x.join(", ");
val y = x.mkString(",")
(define y
  (foldr (lambda (a b)
           (if (string=? b "")
               a
               (string-append a ", " b)))
         ""
         x))
y := x joinSeparatedBy: ', '.
', ' join: #('abc' 'def' 'ghi')
Dim x = {"a", "b", "c", "d"}.ToList
Dim y = String.Join(",", x)