Data update

Task/Constrained-genericity/PascalABC.NET/constrained-genericity.pas

@@ -0,0 +1,23 @@
+function Min<T>(a: array of T): T; where T: IComparable<T>;
+begin
+  Result := a[0];
+  for var i:=1 to a.Length - 1 do
+    if a[i].CompareTo(Result) < 0 then
+      Result := a[i];
+end;
+
+type Point = record(IComparable<Point>)
+  x,y: integer;
+  constructor (xx,yy: integer) := (x,y) := (xx,yy);
+  function CompareTo(p: Point): integer;
+  begin
+    Result := x.CompareTo(p.x);
+    if Result = 0 then
+      Result := y.CompareTo(p.y);
+  end;
+end;
+
+begin
+  var a := Arr(new Point(2,3),new Point(1,4), new Point(3,1));
+  Print(Min(a));
+end.