# Programming-Idioms

Given an array a containing the three values 1, 12, 42, print out
"1, 12, 42" with a comma and a space after each integer except the last one.
New implementation

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please try to avoid dependencies to third-party libraries and frameworks.

Other implementations
``with Ada.Text_IO;``
``````declare
A : array (1 .. 3) of Integer := (1, 12, 42);
begin
for I in A'Range loop
if I /= A'Last then
end if;
end loop;
end;``````
``print(a.join(", "));``
``````  integer, dimension(:), allocatable :: a
a = [1,12,42]
write (*,'(*(I0:", "))') a``````
``import "fmt"``
``````a := []int{1, 12, 42}

for i, j := range a {
if i > 0 {
fmt.Print(", ")
}
fmt.Print(j)
}``````
``````let a = [1, 12, 42] in
putStrLn \$ intercalate ", " (show <\$> a)``````
``````int[] a = new int[] { 1, 12, 42 };
for(int index = 0; index < a.length; index++) {
if(index != 0) {
System.out.print(", ");
}
System.out.print(a[index]);
}``````
``````var
a: array of integer;
i: Integer;
begin
a := [1,12,42];
for i := Low(a) to High(a) do
begin
write(a[i]);
if i <> High(a) then write(', ');
end;
end.``````
``````@a = qw (1 12 42);
print join(", ",@a),"\n";``````
``````a = [1, 12, 42]
print(*a, sep=', ')
``````
``````puts a.join(", ")
``````
``````let a = [1, 12, 42];
println!("{}", a.map(|i| i.to_string()).join(", "))``````