Towers of Hanoi

From Rosetta Code
Revision as of 19:26, 6 September 2007 by rosettacode>On5M1p

pamela e tommy video hard nikon fish eye vacanze mauritius estrelleta la volkswagen passat highline 1 9 130cv stilo t3 polini corse modem per adsl cellula staminale hpcompaq ipaq rz1710 navigator zharik sony hd5 mp3 skytv crack www audia3 it simple minds seen the light a visual history lost magic filmato su nintendo ds saiyuki reload www sesso italia it mappa londra folk bosnia emmepi custodia ipaq immagini pena di morte barcellona calcio lucifero interruttore crepuscolare gabbia animali te sto aspettanno nuova alfa 147 gta canon tappo corpo km 1650 cecile de minibus nissan almera plus sally vasco rossi the passenger casale del giglio shiraz boney m sugarland express en er mundo fotoalbum sergiorossi assicurazione prato down low vision of life quasi adulti assicurazione alghero eas integratori moto corse gazos voli airone musica de tiziano ferro biglietto compleanno d augurio dope show www minimoto goganga rn matteo in cinese scope elettriche ricaricabili vincenzo giudice videocamera panasonic 30x kinks feel good time marilyn manson lest we forget cd portatili schermo 17 marin datacolor http www gunbound latino net community i beleive come masturbarsi il principe amante saint helier mar rosso sharm radio tv dvd pulenta e galena fregia i want you want me modifica decreto urbani fuera de mi direzione generale delle pensioni di gue unile it nomadi del canto pushpull indaco dagli occhi nel cielo kalimba no me quiero enamorar un senso zucchero fornaciari dual feed kit telesystem sicut subaru wrx 20 t 4wd 1999 ringhiera balconi picc latinos mina dvd tango and around valpantena volo aereo per dubai da milano loewe profumi tribunale pescara roberta mancini velvet under world nonsolorock ca si nguyen hong nhung nectares de frutas publicita regresso pregador luo sulla nostra spiaggia oakley penny burning heart srade della croazia lancio 7 galzignano terme dvd r 8cm hd scsi 36 gb hp braccio vincente video sesso gratis video den harrow dottorati di ricerca concorsi minigonna autoreggente sentenza tar impugnazione foto di nascosto macerata negozi sportivi liberte formola wellbutrin zanaflex zyban fioricet cheap propecia mtv ringtones cheap lisinopril paxil online free kyocera ringtones ultram online mono ringtones didrex online hydrocodone online lorazepam polyphonic ringtones verizon ringtones nextel ringtones ambien online free music ringtones nokia ringtones sonyericsson ringtones pharmacy online online free free ringtones cheap vicodin diazepam alprazolam online ultracet cheap meridia flexeril online lortab norco online hoodia online sagem ringtones nexium online soma online cyclobenzaprine online zoloft online jazz ringtones cingular ringtones motorola ringtones midi ringtones carisoprodol online hgh sony ringtones tramadol online phentermine online albuterol cheap vigrx qwest ringtones diethylpropion online free sprint ringtones cool ringtones cheap clomid adipex online levitra xenical online cheap sildenafil free punk ringtones mp3 ringtones xanax online ativan online prozac online celexa online ortho online tenuate samsung ringtones lipitor ericsson ringtones free sharp ringtones free alltel ringtones valium online tracfone ringtones free sony ericsson ringtones cheap rivotril clonazepam online free real ringtones cheap cialis viagra online free funny ringtones free wwe ringtones

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"