Написать функцию, которая удаляет из списка элементы, входящие в него только один раз

#include <stdio.h>
#include <malloc.h>
 
typedef struct node {
    struct node* next;
    int val;
} slist;
void slist_copy(slist** ls, const int a[], unsigned n);
void slist_remove_unique(slist** ls);
void slist_print(FILE* _out, const slist* ls);
void slist_clear(slist* ls);
 
int main(void){
    int    a[] = { -7, 90, 1, 2, 3, 4, 5, 6, 7, 2, 8, 1, 9, 2, 0 };
    slist* ls  = NULL;
 
    slist_copy(&ls, a, sizeof(a)/sizeof(a[0]));
    slist_print(stdout, ls);
    slist_remove_unique(&ls);
    slist_print(stdout, ls);
    slist_clear(ls);
    getchar();
    return 0;
}
 
//удаление уникальных элементов за O(n^2), по простому без сортировки
void slist_remove_unique(slist** ls){
    int    m;
    slist* i, *a = *ls, *b = *ls;
    while(b != NULL){
        for(m = 0, i = *ls; i != NULL; i = i->next){
            if(i->val == b->val){
                if(++m > 1)
                    break;
            }
        }
 
        if(i == NULL){
            if(b == *ls)
                a = i = *ls = (*ls)->next;
            else
                i = a->next = b->next;
            free(b);
            b = i;
        } else {
            a = b;
            b = b->next;
        }
    }
}
 
//копирование массива
void slist_copy(slist** ls, const int a[], unsigned n){
    unsigned i;
    slist*   p, *t = NULL;
    for(*ls = NULL, i = 0; i < n; ++i){
        if((p = (slist*)malloc(sizeof(slist))) == NULL)
            break;
 
        p->val  = a[i];
        p->next = NULL;
        if(t == NULL)
            t = *ls = p;
        else 
            t = t->next = p;
    }
}
 
//печать
void slist_print(FILE* _out, const slist* ls){
    for(; ls != NULL; ls = ls->next)
        fprintf(_out, "%d ", ls->val);
    fputc('\n', _out);
}
 
//удаление всех
void slist_clear(slist* ls){
    slist* t;
    while(ls != NULL){
        t  = ls;
        ls = ls->next;
        free(t);
    }
}