24 lines
412 B
ObjectPascal
24 lines
412 B
ObjectPascal
type
|
|
SumTC[T] = typeclass
|
|
function sum(v1, v2: T): T;
|
|
end;
|
|
|
|
SumTC[integer] = instance
|
|
function sum(v1, v2: integer): integer;
|
|
begin
|
|
Result := v1 + v2;
|
|
end;
|
|
end;
|
|
|
|
function Sum3<T>(v1, v2, v3: T): T; where SumTC[T];
|
|
begin
|
|
Result := SumTC[T].sum(v1, SumTC[T].sum(v2, v3));
|
|
end;
|
|
|
|
begin
|
|
var v1, v2, v3, res: integer;
|
|
|
|
res := Sum3&[integer](v1, v2, v3);
|
|
|
|
Write(res);
|
|
end. |