Il Linguaggio Fortran 90/95

5.15 Procedure ricorsive 281
CALL hanoi(n-1,starting,free)
PRINT 100, "Muovi il disco", n, "dal piolo", &
starting, "al piolo", goal
CALL hanoi(n-1,free,goal)
END IF
100 FORMAT(1X,A15,I3,1X,A10,1X,I1,1X,A9,1X,I1)
END SUBROUTINE hanoi
END PROGRAM test_hanoi
Si riporta, per completezza, un esempio di run del precedente programma:
C:\MYPROG>hanoi
Con quanti dischi vuoi giocare? 4
Soluzione:
Muovi il disco 1 dal piolo 1 al piolo 2
Muovi il disco 2 dal piolo 1 al piolo 3
Muovi il disco 1 dal piolo 2 al piolo 3
Muovi il disco 3 dal piolo 1 al piolo 2
Muovi il disco 1 dal piolo 3 al piolo 1
Muovi il disco 2 dal piolo 3 al piolo 2
Muovi il disco 1 dal piolo 1 al piolo 2
Muovi il disco 4 dal piolo 1 al piolo 3
Muovi il disco 1 dal piolo 2 al piolo 3
Muovi il disco 2 dal piolo 2 al piolo 1
Muovi il disco 1 dal piolo 3 al piolo 1
Muovi il disco 3 dal piolo 2 al piolo 3
Muovi il disco 1 dal piolo 1 al piolo 2
Muovi il disco 2 dal piolo 1 al piolo 3
Muovi il disco 1 dal piolo 2 al piolo 3
Come ultimo esempio si vuole riportare un programma che implementa un algoritmo, quello
di ordinamento a doppio indice (anche detto quick sort), che si presta ad essere espresso
in forma ricorsiva in maniera molto naturale. L’algoritmo in esame, che si caratterizza
per una eccezionale efficienza da un punto di vista di complessità di calcolo, può così essere
schematizzato:
1. Si preleva un elemento dalla lista a, e lo si pone nella sua posizione corretta ossia si
spostano alla sua sinistra tutti i valori minori di questo elemento e si spostano alla sua
destra tutti gli elementi maggiori.
2. Si perviene così a due sottoliste (quella di sinistra e quella di destra) ancora intrinsecamente
disordinate ma comunque tali che ciascun loro elemento non dovrà lasciare, nelle
successive operazioni di ordinamento, la propria sottolista.
3. Applicando ricorsivamente questo procedimento alle due sottoliste si perviene ad una
successione di liste che, alla fine, degenerano ciascuna in un solo elemento. A questo
punto la lista di partenza è completamente ordinata.