RosettaCodeData/Task/Generic-swap/Sather/generic-swap-1.sa
2023-07-01 13:44:08 -04:00

7 lines
96 B
Text

class SWAP{T} is
swap(inout a, inout b:T) is
t ::= a;
a := b;
b := t;
end;
end;