Il Linguaggio Fortran 90/95

280 Unità di Programma
n dischi per spostare i suddetti dischi (ora sul piolo intermedio) sovrapponendoli al disco più
grande appena disposto sul piolo finale. Il seguente programma è nulla di più che la semplice
traduzione Fortran di questo procedimento:
PROGRAM test_hanoi
! Scopo: Risolvere il problema della torre di Hanoi con un assegnato
! numero di dischi
! MEMO:
! + + + + + +
! + + + + + +
! _|+|_ + + + _|+|_ +
! _|__+__|_ + + + _|__+__|_ +
! _|____+____|_ + + + _|____+____|_ +
! _|______+______|_+________+______ _____+_|______+______|_+______
!
!
! + + + + + +
! + + + + + +
! + + + + ___+___ +
! ____+____ + + + |___+___| +
! _|____+____|_ + _|+|_ + ___|__+__|___ +
! _|______+______|_+_____|__+__|___ _____+_|______+______|_+______
!
! OK ERRATO
IMPLICIT NONE
INTEGER :: n ! numero di dischi
WRITE(*,’(1X,A)’,ADVANCE=’NO’) "Con quanti dischi vuoi giocare? "
READ(*,*) n
PRINT*, "Soluzione:"
CALL hanoi(n,1,3)
CONTAINS
RECURSIVE SUBROUTINE hanoi(n,starting,goal)
IMPLICIT NONE
INTEGER, INTENT (IN) :: n,starting,goal
! la variabile "all" e’ la somma dei valori dei tre pioli 1+2+3
! sicche’ il posto libero puo’ essere determinato sottraendo
! i valori delle variabili "starting" e "goal" da questa somma.
INTEGER :: free ! posti liberi
INTEGER, PARAMETER :: all = 6
IF (n > 0) THEN
free = all-starting-goal