Il Linguaggio Fortran 90/95

400 Puntatori
RECURSIVE SUBROUTINE write_node(ptr)
TYPE(node), POINTER :: ptr ! puntatore alla posizione corrente
! Scrive il contenuto del nodo precedente
IF (ASSOCIATED(ptr%before)) THEN
CALL write_node(ptr%before)
END IF
! Stampa il contenuto del nodo corrente
WRITE(*,"(2X,I10)") ptr%int
! Scrive il contenuto del nodo successivo
IF(ASSOCIATED(ptr%after)) THEN
CALL write_node(ptr%after)
END IF
END SUBROUTINE write_node
END PROGRAM tree
Al fine di verificare la bontà del codice, può essere utile osservare uno stralcio dell’output:
Elenco originale:
77
82
14
65
84
...
91
54
6
57
79
Elenco ordinato:
2
2
3
3
5
...
89
90
91
98
99
Un albero binario consente, dunque, di ordinare i dati all’interno di una struttura indipendentemente
dall’ordine in cui vengono inseriti e senza operare alcuna permutazione degli elementi