"навороты"
var
a, b, e: Integer;
c, d: String;
begin
a := 42;
c := 'Hello World';
(b, d) := (a, c);
a := 21;
b := 84;
(a, b) := (b, a); // the compiler needs to ensure the correct usage
of temps here!
a := 42;
(a, e) := (a * 2, a); // (a, e) should be (84, 42), not (84, 84)
end;
------------------
type
TDoubleVector = tuple of (Double, Double, Double, Double);
operator + (aLeft, aRight: TDoubleVector): TDoubleVector;
// implement by e.g. using SSE instructions
// somewhere else
begin
(d1, d2, d3, d4) := (d1, d2, d3, d4) + (1.0, 2.0, 3.0, 4.0);
end;
Но вообще мне многие навороты Си сильно то ли Рапид то ли pl/1 напоминают... Да, круто 100500 операций в одну строчку!
...но где эти Рапид и Пл/1 ?"В гробу у белых тапках!"
Но самое забавное вы ХВАСТАЕТЕСЬ ровно тем, что я ругаю, читабельность кода подобные пассажи резко снижают .
P.s.
Про Лямду на PascalABC.NET...
А на FPC/Lazarus пришел Гродон Фримен с монтировкой и все опошлил ...