Be concise.
Be useful.
All contributions dictatorially edited by webmasters to match personal tastes.
Please do not paste any copyright violating material.
Please try to avoid dependencies to third-party libraries and frameworks.
print(a.join(", "));
integer, dimension(:), allocatable :: a
a = [1,12,42]
write (*,'(*(I0:", "))') a
let a = [1, 12, 42] in
putStrLn $ intercalate ", " (show <$> a)
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";
print(a[0], end='')
for i in range(1, len(a)):
print(',', a[i], end='')
print(', '.join(map(str, a)))
a = [1, 12, 42]
print(*a, sep=', ')
puts a.join(", ")
let a = [1, 12, 42];
println!("{}", a.map(|i| i.to_string()).join(", "))