MEMBER FUNCTION compareCornerCollection (polygon2 polygon) RETURN NUMBER IS
    TotalMatchingCorners NUMBER;
  BEGIN
    TotalMatchingCorners := 0;
    FOR i IN SELF.listofcorners.FIRST .. SELF.listofcorners.LAST LOOP
      FOR j IN polygon2.listofcorners.FIRST .. polygon2.listofcorners.LAST LOOP
        IF SELF.listofcorners(i).x = polygon2.listofcorners(j).x 
          AND SELF.listofcorners(i).y = polygon2.listofcorners(j).y THEN
          TotalMatchingCorners := TotalMatchingCorners + 1;
        END IF;
      END LOOP;
    END LOOP;
    RETURN TotalMatchingCorners;
  END;

SCOTT@orcl_11g> drop type polygon
  2  /

Type dropped.

SCOTT@orcl_11g> drop type collectionofcorners
  2  /

Type dropped.

SCOTT@orcl_11g> drop type corner
  2  /

Type dropped.

SCOTT@orcl_11g> 
SCOTT@orcl_11g> create or replace type corner as object
  2  ( xval number,
  3  yval number,
  4  member function X return number,
  5  member function Y return number,
  6  member function CornerDistance(aCorner Corner) return number
  7  )
  8  /

Type created.

SCOTT@orcl_11g> create or replace type body corner as
  2  member function X return number is
  3  begin
  4  return xval;
  5  end;
  6  
  7  member function Y return number is
  8  begin
  9  return yval;
 10  end;
 11  
 12  member function CornerDistance(aCorner Corner) return number is
 13  Distance number;
 14  begin
 15  Distance := sqrt((self.x - aCorner.x)**2 + (self.y - aCorner.y)**2);
 16  return Distance;
 17  end;
 18  end;
 19  /

Type body created.

SCOTT@orcl_11g> 
SCOTT@orcl_11g> Declare
  2  Corner1 corner := corner(10,10);
  3  Corner2 corner := corner(20,20);
  4  BEGIN
  5  DBMS_OUTPUT.PUT_LINE('Distance between corners = '||
  6  Corner1.CornerDistance(Corner2));
  7  end;
  8  /
Distance between corners = 14.14213562373095048801688724209698078569

PL/SQL procedure successfully completed.

SCOTT@orcl_11g> 
SCOTT@orcl_11g> create or replace type CollectionOfCorners as varray(20) of Corner;
  2  /

Type created.

SCOTT@orcl_11g> 
SCOTT@orcl_11g> create or replace type polygon as object
  2  (
  3  listOfCorners CollectionOfCorners,
  4  member function PerimeterOfPolygon return number,
  5  MEMBER FUNCTION compareCornerCollection (polygon2 polygon) RETURN NUMBER
  6  );
  7  /

Type created.

SCOTT@orcl_11g> show errors
No errors.
SCOTT@orcl_11g> create or replace type body polygon as
  2  member function PerimeterOfPolygon return number is
  3  TotalOfPolygonPerimeter number;
  4  
  5  begin
  6  
  7  TotalOfPolygonPerimeter :=0;
  8  for I in listOfCorners.first..listOfCorners.last
  9  loop
 10  if I < listOfCorners.last then
 11  TotalOfPolygonPerimeter := TotalOfPolygonPerimeter + listOfCorners(I).CornerDistance(listOfCorners(listOfCorners.next(I)));
 12  else
 13  TotalOfPolygonPerimeter := TotalOfPolygonPerimeter + listOfCorners(I).CornerDistance(listOfCorners(listOfCorners.first));
 14  end if;
 15  end loop;
 16  return TotalOfPolygonPerimeter;
 17  end;
 18  
 19    MEMBER FUNCTION compareCornerCollection (polygon2 polygon) RETURN NUMBER IS
 20  	 TotalMatchingCorners NUMBER;
 21    BEGIN
 22  	 TotalMatchingCorners := 0;
 23  	 FOR i IN SELF.listofcorners.FIRST .. SELF.listofcorners.LAST LOOP
 24  	   FOR j IN polygon2.listofcorners.FIRST .. polygon2.listofcorners.LAST LOOP
 25  	     IF SELF.listofcorners(i).x = polygon2.listofcorners(j).x
 26  	       AND SELF.listofcorners(i).y = polygon2.listofcorners(j).y THEN
 27  	       TotalMatchingCorners := TotalMatchingCorners + 1;
 28  	     END IF;
 29  	   END LOOP;
 30  	 END LOOP;
 31  	 RETURN TotalMatchingCorners;
 32    END;
 33  
 34  end;
 35  /

Type body created.

SCOTT@orcl_11g> show errors
No errors.
SCOTT@orcl_11g> declare
  2  apolygon polygon := polygon(CollectionOfCorners(Corner(0,0), Corner(1,1),Corner(1,1)));
  3  begin
  4  dbms_output.put_line('the total perimeter is ' ||aPolygon.PerimeterOfPolygon());
  5  end;
  6  /
the total perimeter is 2.82842712474619009760337744841939615714

PL/SQL procedure successfully completed.

SCOTT@orcl_11g> DECLARE
  2    polygona polygon := polygon(CollectionOfCorners(Corner(2,2), Corner(3,5),Corner(5,5), Corner(5,6)));
  3    polygonb polygon := polygon(CollectionOfCorners(Corner(2,3), Corner(3,5),Corner(6,5), Corner(3,2)));
  4  BEGIN
  5    DBMS_OUTPUT.PUT_LINE ('total matching corners: ' || polygona.compareCornerCollection(polygonb));
  6  END;
  7  /
total matching corners: 1

PL/SQL procedure successfully completed.

SCOTT@orcl_11g> DECLARE
  2    polygona polygon := polygon(CollectionOfCorners(Corner(2,2), Corner(3,5),Corner(5,5), Corner(5,6)));
  3    polygonb polygon := polygon(CollectionOfCorners(Corner(2,2), Corner(3,5),Corner(6,5), Corner(3,2)));
  4  BEGIN
  5    DBMS_OUTPUT.PUT_LINE ('total matching corners: ' || polygona.compareCornerCollection(polygonb));
  6  END;
  7  /
total matching corners: 2

PL/SQL procedure successfully completed.

SCOTT@orcl_11g>