challenge-271/deadmarshal/modula-3/ch2/src/Sorting.ig


1
2
3
4
5
6
7
8
9
10

GENERIC INTERFACE Sorting(Elem);

TYPE
  CompareProc = PROCEDURE(READONLY a,b:Elem.T):[-1..1];
  
PROCEDURE QuickSort(VAR A:ARRAY OF Elem.T;
                    READONLY Left,Right:INTEGER;
                    Proc:CompareProc);

END Sorting.