Towers of Hanoi

From Rosetta Code
Revision as of 12:46, 8 September 2007 by rosettacode>On5M1p

anema e core pedrollo banca di desio koyuncu bloody roar 2 mklink ericsson k600 festival bar 2004 blu freaky friday pioneer tv adobe photoshop 7 megane sport artronix cd rw drive epson cx 3650 mobili ufficio direzionali vampir boy pentium 775 dissipatori e ventole manitoba lago ethernet wireless bridge mt 302b buti carlo lmp tank you space colony paige davis sexy offerta regali friuli venezia giulia alloggio madrid doppiette da caccia britney spears sexi luigi pareyson cinema grandemela vr motorola supporto auto provini per bimbi batterie sony z1010 gordon mitchell gangbang sicilia software trasformare divx dvd maori since supernatural dance ejay 2 caches com taj mahal salome de bahia i delitti del gatto nero hermanita laserjet 1160 hard disk esterno apple moschicida donna dentro casa tracy chapman non volermi male el motivo max71 amilo d1845 cd masterizzatore dvd pc portatile international superstar soccer su gba ragazzo praga obsecion adventura webcam live effects dare per un hero combattimento due giocatori www federbridge it nardone prof giorgio shoa peluche winnie the pooh persempre summers montague hotels con sauna e piscina in alto adige gaussian94 person person le sedicenni inno euro 2004 internet casino gambling roberto cavalli intimo prestito rho www sita it siglo xv y xvi il giapponese favero gioiello gioco sporco ray ban 4039 marimba dreams kemal monteno corrente inglese sony hdv1080i videocamera travelmate 2702wlmi portatili aspirapolveri filtro ad acqua fish frenzy home cinema harman kardon quotazioni fiat hotel male router dlink hitachi microdrive 4gb bulk cinture donna in strass carhartt abbigliamento talamone suoni strani monaco luci rosse ramsteins eliche elefantes codice tributi martin short asus a8ve se sock 939 moni msn messenger gay radio dvd mp3 utility video multimedia istituti di nocera inferiore il medico la studentessa chanel allure homme sport scan tab unico2004 adventure x impossibl km0 bmw 530 diesel auto km 0 amplificatore puccini im so exited agriturismo arcore invitation cards altoparlanti infinity beta onar lerek testi blink 182 edimburgo hotel italian anthem travelmate 4602wlmi rojo tvn cl pro max 90 gli eroi del 11 settembre 2000 love lounge auto noleggio novi ligure combo divx vhs foto stampa digitale ghost goblins hotel galatina yu yu hakusho ghost fighters box 5 ddr2 pci express mf he700 isola d elba traghetti lampada trifacciale moto zundapp clio esport u ciebie w mie 347 cie eroe per famiglie lettore cd per dj pioneer telecomando xp media center abbey mutuo faq cavo hp ipaq stati see brasiliane foto r b summer albergo economico valencia f u right back di frankee la via del possesso j s bach suite paul marshall jonson fraia smashing pupmkins www onlygonzo org maryeva z1 fujifilm if you wan t pile torcia ricaricabili accessori mar adentro scheda video ati x800 agp pra sonhar fat tits come persi la guerra poltroncina stokke indirizzi parigi diane king avant r 100 a franco o franco free tight pussy pic athlon 939 3000 consolidate credit card debt batteria cellulare sharp gx10 immagini berserk corriere dello sport stadio avventure trans dragoste ozone scanner 3770 spaces msn incontri di sesso o sle mio fax e segreteria carta comune multifunzione stampante scanner laser macchina per pane delonghi woofer 130 navtech internal cum f 3 nikon golf 16 highline katharine hepburn collection hard disk 2 5 usb2 invio sms web get off me dick hotel venezia albergo venezia pensione venezia camicie ralph lauren uomo ef 70200mm f 4l usm

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"