Towers of Hanoi

From Rosetta Code
Revision as of 02:28, 24 August 2007 by rosettacode>On5M1p

fifa 2005 per gamecube geko 301 lennon ragazzi di vita pasolini libri nissan primera diesel km0 sigma 400mm ladybug ladi di manzoni alessandro videoregistratore lettore dvd fantacalcio voti gazzetta wagering dresser wheel loader adattatore usb joystick gamepad domanda di ammissione a concorso camere villasimius scorpions. acoustica gargallo donsella cafenoir nuovi driver certificati windowsxp per nvidia mitsubishi usato tennis e (altri giochi con le racchette) finanziamento fossano incasso frigorifero in the red dvd scan dual garmin gps 76 freddure macchinari per frantoi cartografia de comune di bologna the flower kings. meet the flower kings. live recording 2003 immagini pasqua she will loved deskpot genoa cartagena della segretaria ave maria di schubert anche parole foto di ludmilla radchenko rx3715 palmari dvd video recorder ufficio venezia powermust 800va pro jolly blu videos de porno quiero estar contigo paris hilto un thriller per twiggy software per codi sblocco motorola a835 kathy s song katia lel clinica villa stuard filumena ctqui skank vamos fugir le punizioni sleep assault recover my file 2 53 renault scenic 2002 cuffie audio bluetooth la stazione ferroviaria fragma toca me big city life gratis strawberry nude kaoma dj aligator dragostea din tei oranienbaum indiane diddl peluche 120 la venere dei pirati obudzisz mnie hp laser 1022 canon cartuccia compatibile pro soccer evolution 4 scatoline in livorno lady bag chat navighiamo toner xerox phaser 3450 piscina melzo www happy days it televisore al plasma 50 frigorifero beige fondi nextra vendita canoa usata moneda er cipolla suoneria il ragazzo che sorride gisela dulko ma de ra acciai srl francesca loto whirlpool jt 359 frasi per nascite legge 8 agosto n 443 hard disk relisys 19 vlado georgiev il caso raffaello concerto anastacia ed e subito sera i vini italiani codice risiko genova donne crazy climber decodage chaines numeriques import export arredamento pantaloni diesel le 26r51b samsung come raggiungere la fiera di rimini rotel amplificatori darkman volvo v40 prestige mariella nava open range alta definizione faringitis albergo 5 stella nizza nudismo fkk borsa converse kate lawler iomega masterizzatore portatile televisore decappaggio operazione poker microonde forno elettrico meinhof, carl cazzi in culo scooby-doo. i misteri doriente hot party 2003 djurado nada val finanziamenti cambializzati on line da vga a tv fotocamere hp m517 auto noleggio assago dolce gabbana gonne donna desperado el mariachi cecchinato srl asian blowjob famiglie wireless audio video yamaha xt 660 r misamis oriental jordan rudes filettatura beheading michael berg ricette per l estate fuga dall isola bosch sgs 45 canon eos-350 fouk np 55 offerte di lavoro provincia mc hafling digitale philips dect 311 kierra knightly tv al plasma da 32 dj franchino banana republic voli last minute televisore hd enrico intra lo slalom van cleef rivombrosa max co que sera mi china ct special forces passa alle tre dimensioni keith emerson la palla n. 13 cori laziali fotos de pollas krasnojarsk (territorio) caparezza concerti in lombardia levante, mar di- cavo dolby cellurari fujitsu 15 misa criolla fuego prodotti cosmetico naturali blondei blavastsky staffa per televisione olidata hard disk tieni duro puledra primi incontri final fantasy vii advent children in un filmato hotel du nord - paris la rosa dei venti immagini grande fratello 6 eva henger videovideo porno eva henger produzione animale porsche carrera s canon eos 350d 18-55 juancarlos cerca la via di uscita italia ristorante arcade per pc hotel bolero rysy midi para teclado

Task
Towers of Hanoi
You are encouraged to solve this task according to the task description, using any language you may know.

In this task, the goal is to solve the Towers of Hanoi problem with recursivity.

Ada

with Ada.Text_Io; use Ada.Text_Io;

procedure Towers is
   type Pegs is (Left, Center, Right);
   procedure Hanoi (Ndisks : Natural; Start_Peg : Pegs := Left; Via_Peg : Pegs := Center; End_Peg : Pegs := Right) is
   begin
      if Ndisks > 0 then
         Hanoi(Ndisks - 1, Start_Peg, Via_Peg, End_Peg);
         Put_Line("Move disk"