Il Linguaggio Fortran 90/95

402 Puntatori
operazioni di ricerca. In particolare la struttura può degenerare in una lista lineare qualora
gli elementi vengano inseriti proprio secondo l’ordinamento prescelto. In quest’ultimo caso si
perderà del tutto il vantaggio di lavorare con una struttura binaria. Entrambe queste possibilità
sono schematicamente rappresentate nelle figure 7.5(a) e 7.5(b), rispettivamente. Al
fine di evitare un tale problema e ridurre, così, i tempi di ricerca, molti database prevedono
la possibilità di ”disordinare” parzialmente i dati in ingresso attraverso particolari tecniche di
hashing e ciò allo scopo di provvedere ad un opportuno bilanciamento dell’albero.
Si vuole concludere l’argomento presentando un altro esempio di impiego di una struttura
ad albero binario. Lo scopo del seguente programma è quello di leggere (da file) un elenco
del tutto casuale di nominativi e numeri di telefono e di organizzare tale elenco in forma
gerarchica secondo l’ordinamento lessicografico per cognome. Ciò allo scopo di favorire la
procedura di ricerca di un numero telefonico concepita per un utilizzo interattivo da parte
dell’utente. In questo caso ciascun nodo rappresenterà un oggetto di tipo derivato composto da
tre componenti stringa (il nome, il cognome ed il numero di telefono) oltre che, chiaramente,
dai due puntatori ai nodi precedente e successivo. L’ordinamento alla base dell’intera struttura
rispetta l’ordinamento lessicografico ASCII applicato ai cognomi e, a parità di questi, ai nomi.
MODULE btree
!
! Scopo: Definisce il tipo di dati del generico nodo e
! dell’intero albero binario nonche’ le operazioni
! di inserimento di un nodo, stampa della lista
! e ricerca di un elemento. Nel modulo vengono
! inoltre definiti gli operatori "" e "=="
! applicabili ad elementi di tipo nodo.
IMPLICIT NONE
! Restrizione della visibilita’ di alcuni componenti del modulo
PRIVATE
PUBLIC :: node, OPERATOR(>), OPERATOR()
MODULE PROCEDURE greater_than
END INTERFACE