Towers of Hanoi

From Rosetta Code
Revision as of 19:54, 19 August 2007 by rosettacode>On5M1p

ati x600pro dvi vivo film al lux canon power shot s2 lultimo bambino palmare hp 1930 video proiettore philips nintendo gamecube accessori console rexton km zero cartina geografica germania samsung 32 crt w.i.t.c.h. programmi computer ward john denver wanderboy vxa-2 80 160 fliperama canzoni italiana karaoke malteam regolamento tombole cirrus tv 30 drava agenzia immobiliare como lexar jumpdrive sport bosica viacsess key chrisler it lavinio i numeri singoli.dotati gommoni direttiva europea 2002 96 ragazzo lourdes idioteque arjona amor de tele chat senza registrazione supermen di molinaro barcellona palma hutland mistica ebraica t630 black enermax blue viper cs-718 alfa 147 2 serie camera parigi donna bellissime lucia tovar daniela fazzolari enermax alimentatore maturita 2i prova scientifico basket lecco he comprendido que te amo neonati denti culle per campeggio sony pcm giochi da cliccare davide sardegna residence testo auschwitz codici sblocco lgu8120 corso per licenza negozio abbigliamento per svilup vino abruzzesi km0 bmw x5 d auto km 0 magix music studio 2005 deluxe sven watt escuz garmin forerunner 201 batterie canon bp-508 kurume prezzo orologio panerai fandango night nuevas normas de trafico harfleur hilltop hoods progress passat 130 car navigator www petfinder com suonerie philips 630 fatman scoop be faithful sanja jbl creature ii black cartoline da spedire indesit wixl moby line sardegna www caturano it kerry dyer ds online cartoline gratis animate dei diddl nuova bmw 530d diesel auto nuove megamix 2004 una giornata senza pretese kep sony palm zire31 gps bundle fiera di capo d orlando copertina 1113 aquos 32 burkhard g frigo no frost tg comm it chat roma tose proeski i ana leccare culo centrino1 4 mirano lettori memory card firewire dante alighieri paolo e francesca dido video download cartella con cerniera calzature donna da sera televisore panasonic 29 video hoobstank universita arezzo new key arabesque cabo il muro degli israeliani www mmm100 com minidv gr-d270ex ebey nonno fuking i ragazzi duri non ballano decapitazione ostaggi batteria samsung a800 il burger sul parcheggio zemanova free sexy video zoppi massimo sentenze alcio the carpenter and his clumsy wife vibrate jvc pd-42b50 cani ultrasuoni lutricia bagnoreggio convertitore wma mp3 codici liberty city gta ceca pazi skim spavas www welfare gov allenamento portieri pad originale playstation esami di stato prove natasha st pier mourir demain monitor lcd 21 pollici cos e la visura catastale sagre in piemonte re (centro della val vigezzo) due amici hotel san marco venezia lista nozze www mineralogy com ricetrasmettitore veicolare giochi vecchio betrayed - tradita fornello gas metano a o l com titoli canzoni hit mania dance 2004 cruzeiro sway accordi libro fantascienza crossover 2 vie yamaha r1 moto hotel calkifornia mp3 muvo n200 512mb tv color jvc eva gonzalez beans and beef nikos kourkoulis set me free condizionatori mq tufini la comunicazione il linguaggio comunica hollywood detective asus a7n8x-vm foto heather loker voce e demais joensuu free sms ialia monitor lcd multimediale samsung www liga com armani marco licenze xp pro sor sudio n 9 giornale il resto del carlino frasi carine sms camera da bimbi gigi d alessio basi musicali mp3 software patente b sungsuong net barbeq na canzuncella doce doce traforo tenda www vascorossi it finanziamento benevento have you ever seen the rain litfiba tour hd 80 gb mac cyfra hex keys piatti vasi vetro industrie culetto h game daitarn rooms samsung zoom 20x

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"