TList list_destroy(TList list){

    //la funzione deve deallocare e
    //dstruggere interamente gli elemnti della lista

    //implementiamo la funzione in maniera ricorsiva

    //caso degenere
    if(list == NULL)
        return list;

    //caso Base: la lista è composta da un solo elemento e questo punta a NULL
    if(list->link == NULL){
        node_destroy(*list);
        return NULL;
    }
    else{
        //DIVIDE: se la lista è composta da più elementi
        //richiamiamo la funzione stessa inviandogli quello successivo
        TList list2;

        //IMPERA
        list->link=list_destroy(list->link);
        node_destroy(*list);

        //COMBINA
        return NULL;

    }


    /*
     il ragionamento di questa funzione consiste nel raggiungere
     * l'elemento finale della lista, quello che punta a NULL
     * distruggerlo con la node_destroy(), e restituire il valore NULL
     *
     * nel caso base, questo è funzionante, dato che corrisponde ad una lista di un solo elemento
     *
     * nel caso in cui ci fossero più elementi, sarebbe possibile
     * richiamare la stessa funzione, inviando però una LISTA TAGLIATA IN TESTA
     * cioè inviando il link alla posizione successiva
     *
     * eliminando allora il valore *list, con la node_destroy(),
     * cioè il puntatore alla lista tagliata corrente, possiamo restituire NULL, come link
     * del nodo precedente
     *
     * ??funzionerà??

     */

}