List

#include "listNode.h"

template<typename T>class List{
private:
    int _size;
    ListNodePosi(T) header;
    ListNodePosi(T) trailer;

protected:
    void init();
    int clear();
    void copyNodes(ListNodePosi(T) p, int);
    void merge(ListNodePosi(T)& p, int n, List<T>& L, ListNodePosi(T)& q, int m);
    void mergeSort(ListNodePosi(T) p, int n);
    void selectionSort(ListNodePosi(T) p, int n);
    void insertSort(ListNodePosi(T) p, int n);

public:
// construct
    List() { init(); };
    List(List<T> const& L);
    List(List<T> const& L, Rank r, int n);
    List(ListNodePosi(T) p, int n);
//destruct
    ~List();
//?only read
    Rank size() const { return _size; }
    bool empty() const { return _size <= 0; }
    T& operator[] (Rank r) const;

    ListNodePosi(T) first() const { return header->succ; }
    ListNodePosi(T) last() const { return trailer->pred; }

    bool valid(ListNodePosi(T) p) { return p && header != p && trailer != p; }
    //int disordered() const;

    ListNodePosi(T) find(T const& e, int n, ListNodePosi(T) p) const;
    ListNodePosi(T) find(T const& e) const { return find(e, _size, trailer); }
    ListNodePosi(T) search(T const& e, int n, ListNodePosi(T) p) const;
    ListNodePosi(T) search(T const& e) const { return search(e, _size, trailer); }

    ListNodePosi(T) searchMax(ListNodePosi(T) p, int n);
    ListNodePosi(T) searchMax() { return searchMax(header->succ, _size); }

//write
    ListNodePosi(T) insertAsFirst(T const& e);
    ListNodePosi(T) insertAsLast(T const& e);
    ListNodePosi(T) insertPred(ListNodePosi(T) p, T const& e);
    ListNodePosi(T) insertSucc(ListNodePosi(T) p, T const& e);

    T remove(ListNodePosi(T) p);

    void merge(List<T>& L) { merge(first(), size, L, L.first(), L._size); }

    void sort(ListNodePosi(T) p, int n);
    void sort() { sort(first(), _size); }

    int deduplicate();
    int uniquefy();

    void reverse();
//traverse
    void traverse(void(*visit) (T&));
    template<typename VST> void traverse(VST&);
}; //List

template<typename T> void List<T>::init() {
    header = new ListNode<T>;
    trailer = new ListNode<T>;
    
    header->pred = NULL;
    header->succ = trailer;
    
    trailer->pred = header;
    trailer->succ = NULL;
    
    _size = 0;
}

template<typename T> T& List<T>::operator[] (Rank r) const {
    ListNodePosi(T) p = first();
    while (0 < r--)
        p = p->succ;
    return p->data;
}

template<typename T> 
ListNodePosi(T) List<T>::find(T const& e, int n, ListNodePosi(T) p) const {
    while (0 < n--) {
        if (e == (p = p->pred)->data)return p;
    }
    return NULL;
} 

template<typename T>
ListNodePosi(T) List<T>::insertAsFirst(T const& e) {
    _size++;
    return header->insertAsSucc(e);
}

template<typename T>
ListNodePosi(T) List<T>::insertAsLast(T const& e) {
    _size++;
    return trailer->insertAsPred(e);
}

template<typename T>
ListNodePosi(T) List<T>::insertPred(ListNodePosi(T) p, T const& e){
    _size++;
    return p->insertAsPred(e);
}

template<typename T>
ListNodePosi(T) List<T>::insertSucc(ListNodePosi(T) p, T const& e) {
    _size++;
    return p->insertAsSucc(e);
}

template<typename T>
void List<T>::copyNodes(ListNodePosi(T) p, int n) {
    init();
    while (n--) {
        insertAsLast(p);
        p = p->succ;
    }
}

template<typename T>
List<T>::List(ListNodePosi(T) p, int n) { copyNodes(p, n); }

template<typename T>
List<T>::List(List<T> const& L) { copyNodes(L.first(), L._size); }

template<typename T>
List<T>::List(List<T> const& L, int r, int n) { copyNodes(L[r], n); }

template<typename T>
T List<T>::remove(ListNodePosi(T) p) {
    T e = p->data;
    p->pred->succ = p->succ;
    p->succ->pred = p->pred;
    delete p;
    _size--;
    return e;
}

template<typename T>
List<T>::~List() {
    clear();
    delete header;
    delete trailer;
}

template<typename T>
int List<T>::clear() {
    int oldSize = _size;
    while (0 < _size) remove(header->succ);
    return oldSize;
}

template<typename T>
int List<T>::deduplicate() {
    if (_size < 2) return 0;
    int oldSize = _size;
    ListNodePosi(T) p = header;
    Rank r = 0;
    
    while (trailer != (p = p->succ)) {
        ListNodePosi(T) q = find(p->data, r, p);
        q ? remove(q) : r++;
    }
    return oldSize - _size;
}

template<typename T>
int List<T>::uniquefy() {
    if (_size < 2) return 0;
    int oldSize = _size;
    ListNodePosi(T) p = first();
    ListNodePosi(T) q;
    while (trailer != (q = p->succ)) {
        if (p->data != q->data) p = q;
        else remove(q);
    }
    return oldSize - _size;
}

template<typename T>
void List<T>::traverse(void(*visit) (T&)) {
    for (ListNodePosi(T) p = header->succ; p != trailer; p = p->succ) {
        visit(p->data);
    }
}

template<typename T> template<typename VST>
void List<T>::traverse(VST& visit) {
    for (ListNodePosi(T) p = header->succ; p != trailer; p = p->succ) {
        visit(p->data);
    }
}

template<typename T>
ListNodePosi(T) List<T>::search(T const& e, int n, ListNodePosi(T) p) const {
    while (0 < n--) {
        if ((p = p->pred)->data <= e) break;
    }
    return p;
}

template<typename T>
void List<T>::sort(ListNodePosi(T) p, int n) {

    switch (rand() % 3)
    {
    case 1: insertSort(p, n); break;
    case 2: selectionSort(p, n); break;
    default: mergeSort(p, n); break;
    }
}

template<typename T>
void List<T>::insertSort(ListNodePosi(T) p, int n) {
    for (int r = 0; r < n; r++) {
        insertSucc(search(p->data, r, p), p->data);
        p = p->succ;
        remove(p->pred);
    }
} 

template<typename T>
void List<T>::selectionSort(ListNodePosi(T) p, int n) {
    ListNodePosi(T) head = p->pred;
    ListNodePosi(T) tail = p;
    for (int i = 0; i < n; i++) tail = tail->succ;  // sort in (head,tail)
    while (1 < n) {
        ListNodePosi(T) max = searchMax(head->succ, n);
        insertPred(tail, remove(max)); 
        tail = tail->pred;
        n--;
    }
}

template<typename T>
ListNodePosi(T) List<T>::searchMax(ListNodePosi(T) p, int n) {
    ListNodePosi(T) max = p;
    for (ListNodePosi(T) cur = p; 1 < n; n--) {
        if ((cur = cur->succ)->data >= max->data) max = cur;
    }
    return max;
}

template<typename T>
void List<T>::mergeSort(ListNodePosi(T) p, int n) {
    if (n < 2) return;
    int m = n >> 1;
    ListNodePosi(T) q = p;
    for (int i = 0; i < m; i++) q = q->succ;
    mergeSort(p, m);
    mergeSort(q, n - m);
    merge(p, m, *this, q, n - m);
}

template<typename T>
void List<T>::merge(ListNodePosi(T) & p, int n, List<T>& L, ListNodePosi(T) & q, int m) {
    ListNodePosi(T) pp = p->pred;
    while (0 < m) {
        if((0 < n) && (p->data <= q->data))
        {
            if (q == (p = p->succ)) break;
            n--;
        }
        else
        {
            insertPred(p, L.remove((q = q->succ)->pred));
            m--;
        }
    }
    p = pp->succ;
}

template<typename T>
void List<T>::reverse() {
    if (_size < 2) return;
    for (ListNodePosi(T) p = header; p; p = p->pred) {
        swap(p->pred, p->succ);
    }
    swap(header, trailer);
}