aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Generic-swap/Pascal/generic-swap.pascal → Task/Generic-swap/Pascal/generic-swap-1.pascal
View file

23
Task/Generic-swap/Pascal/generic-swap-2.pascal Normal file
View file

@ -0,0 +1,23 @@
program generic_test;
{$mode objfpc}{H+}
uses
SysUtils;
generic procedure GSwap<T>(var L, R: T);
var
Tmp: T;
begin
Tmp := L;
L := R;
R := Tmp;
end;
var
I, J: Integer;
begin
I := 100;
J := 11;
WriteLn('I = ', I, ', J = ', J);
specialize GSwap<Integer>(I, J);
WriteLn('I = ', I, ', J = ', J);
end.