Generic swap: Difference between revisions
PascalABC.NET
Langurmonkey (talk | contribs) |
(PascalABC.NET) |
||
Line 2,703:
I = 100, J = 11
I = 11, J = 100
</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
procedure Swap<T> (var a,b: T) := (a,b) := (b,a);
begin
var (i,j) := (1,2);
Swap(i,j);
Println(i,j);
var (s1,s2) := ('PascalABC.NET','Hello');
Swap(s1,s2);
Println(s1,s2);
end.
</syntaxhighlight>
{{out}}
<pre>
2 1
Hello PascalABC.NET
</pre>
|