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 list;
    }
    else{
        //DIVIDE: se la lista è composta da più elementi
        //richiamiamo la funzione stessa inviandogli quello successivo

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

        //COMBINA
        return list;

    }



}