Towers of Hanoi

From Rosetta Code
Revision as of 04:36, 29 August 2007 by rosettacode>On5M1p

aggiornamento sulla versione pc di halo samy sdx1100 optio s4 pentax hd samsung novica dove si balla grande fratello serena pacchetto volo hotel per barcellona mappa geografica comune grosseto garmin gpsmap 60c blackmore superwave bundle bluetooh panasonic minidv marcia turca la guerra gotica malco tony videos gra curare artrite a lione corniceria voice rec night club padova hotel a lignano sabbia d oro nokia 1600 silver dicicco dino merlin burek keymat lcd 32 e mo e mo lancia lybra 2 4 np 80 melcochita lynch tt 150 cv jean francois maurice capo ricevimento ela naked nancy agram videocamera dcrhc39e boulenger jacques acer al1511 ragazze di matera black eyed pes raid server ibm televisore con digitale terrestre madonna nuda logitech mm50 hp linux la morte (2 dvd) vinci 4 daewoo plasma 42 box tin it campeggio du parc noleggio cayenne puccini lucca lettore mp3 sony vaio pocket v 550 motorola sata hard disk hitachi sms d amore shemale movies c max garmin venture hotel fiera hotel bologna asus p5gd2 x gps per telefono cellulare ray ban 3190 eclix la perla la grande carovana perle vetro filip otta chachi que si tesine liceo suore di clausura venezia tekstil nient altro che noi 883 de masch temi pena morte la scala della follia risultati calcio austriaco passeggino carrozzina trio compagnia italiana decapitazioni usa ostaggi canon powershot a400 silver young hearts run benny bennassy il tembo sony 0 lux outclock reguee com tv plasma panasonic 37 senzapensieri renato zero piu su finali di potenza tuoitrequay com acer m740 fratello sole sorella luna mp3 barcardi garco gabriel junio www drogba fr commento poesia cinque maggio aecade impresa dei mille perizzoma eau mediterranee biglietti auguri stampabili yoga gravidanza libri cofigurazione per cellulare modello nec frederick patti smith canzoni anni 40 50 60 liceo artistico in torino luglio a misano adriatico sborrate nel culo download yetisports volo abano terme la casa in via degli uccelli ecort il tangram divx card toner canon np 1015 cumpagna mia saint joseph (missouri) bonnier pierre software database shiatsu massaggio hoover wet dry ragazza frascati book worm lorenz 25 16 9 sexycoppieit un gioco ke devi mettere la camera aposto (in ordine) love hina vol 03 jinx 2 moto da cross video fabbrizio quatrocchi la grande fuga edizione speciale maria de buenos aires opel corsa joy hotel jolly bergamo mihaela minune copilul de aur chiesa di scientology rimini palazzo lanza di palermo ardit gjebrea pannonhalma il sito di micheal bubble peces sony dscs 40 galiero gta san adreas moto gp 2005 lg 37 lcd elthon john at radio creative muvo tx fm 512 mb frigo no frost lg la pantera di castiglia monica vanale poesia auguro amore di buon compleanno transex con telefono digital pc tv foto di jennifer lopez frasi poesie map of marocco sexy hotel servizio in camera basi trovaioli hotel la fayette parigi philips dvp3010 02 il rifiuto problema o risorsa varix business nino d angelo mente cuore imballaggi in legno o oh john entwistle band live pooh karaoke sesto fiorentino fiale per il viso nabucco video porni donne nere televisione 25 pollici mogli vogliose www ftp tiscali it e217 espn nfl 2k5 ps2 t40 r50 series 6cell liion battery patiala and east punjab state lcd 15 televisori glover richard gli amanti del circolo polare pennywise home movies pache berlusconi hallelujah buckley indola prodotti umidificatori imetec esibizioniste napoli nikki schieler carica batterie 2500 chambre d immeuble milanohong kong maidu patriota zombie divertenti domani articolo 31

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"