[Esercizio] Merge Sort iterativo

mergeSort :: Ord a => [a] -> [a]
mergeSort [] = []
mergeSort list@(_:[]) = list
mergeSort list = merge (mergeSort leftHand) (mergeSort rightHand)
   where
       (leftHand, rightHand) = (splitAt (length list `div` 2) list)

merge :: Ord a => [a] -> [a] -> [a]
merge list1 list2
   | (null list1) = list2
   | (null list2) = list1
   | x  < y       = x : (merge xs list2)
   | x >= y       = y : (merge list1 ys)
   where
       (x:xs) = list1
       (y:ys) = list2

private enum Op {SORT, MERGE};
@SuppressWarnings("unchecked")
public static <T extends Comparable<? super T>> void mergeSortIte(T[] v) {
       int[] infArr = new int[500], supArr = new int[500]; Op[] op = new Op[500]; // Simulano lo stack dei parametri
       int top = 0, inf = 0, sup = v.length - 1, med; // Parametri iniziali
       infArr[top] = inf; supArr[top] = sup; op[top] = Op.SORT; top++; // Prima chiamata a mergeSort
       while (top > 0) {
               top--;
               inf = infArr[top]; sup = supArr[top];
               med = (inf + sup) / 2;
               if (op[top] == Op.MERGE) {
                       T[] aux = (T[])new Comparable[sup - inf + 1];
                       int i = inf, j = med + 1, k = 0;
                       while (i <= med && j <= sup)
                               if (v[i].compareTo(v[j]) < 0) aux[k++] = v[i++];
                               else aux[k++] = v[j++];
                       while (i <= med) aux[k++] = v[i++];
                       while (j <= sup) aux[k++] = v[j++];
                       for (k = 0; k < aux.length; k++)
                               v[k + inf] = aux[k];
               } else { // SORT
                       if (inf < sup) {
                               // Merge
                               infArr[top] = inf; supArr[top] = sup; op[top] = Op.MERGE;
                               top++;
                               // Merge Sort
                               infArr[top] = med + 1; supArr[top] = sup; op[top] = Op.SORT;
                               top++;
                               // Merge Sort
                               infArr[top] = inf; supArr[top] = med; op[top] = Op.SORT;
                               top++;
                       }
               }
       }
}