declare
A : array (1 .. 3) of Integer := (1, 12, 42);
begin
for I in A'Range loop
Ada.Text_IO.Put (A (I)'Image);
if I /= A'Last then
Ada.Text_IO.Put (", ");
end if;
end loop;
end;
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=', ')
let a = [1, 12, 42];
println!("{}", a.map(|i| i.to_string()).join(", "))
declare
A : array (1 .. 3) of Integer := (1, 12, 42);
begin
for I in A'Range loop
Ada.Text_IO.Put (A (I)'Image);
if I /= A'Last then
Ada.Text_IO.Put (", ");
end if;
end loop;
end;
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.