12 lines
199 B
Text
12 lines
199 B
Text
|
GENERIC MODULE GenericSwap(Elem);
|
||
|
|
|
||
|
|
PROCEDURE Swap(VAR left: Elem.T; VAR right: Elem.T) =
|
||
|
|
VAR temp: Elem.T := left;
|
||
|
|
BEGIN
|
||
|
|
left := right;
|
||
|
|
right := temp;
|
||
|
|
END Swap;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
END GenericSwap.
|