Towers of Hanoi

From Rosetta Code
Revision as of 08:09, 28 August 2007 by rosettacode>On5M1p

ponte visconteo di valeggio su eddie guerrero mp3 vrettakos, nikiforos sommario acer aspire 1024 ram kit veicolare nokia batterie ricaricabili ni-mh 2500mah frigoriferi da incasso classe a margherita cocciante renault scenic iceland azienda ospedaliera bolognini seriate la cassa sbagliata high stakes sostenitori della gestalt cavo dv canon havana nights poesie per ragazzi torres un piccolo gran amore quinault, philippe olimpiadi in bikini labanotation la cosa da un altro mondo. special edition supercar. the best of uomini e cieli torrone di cioccolata nokia 31 basi musicali gigione chopin marcia funebre www neopets com noleggio automobile cerimonia vaser miroslav sur www jhon cena it fini snc musica e cd feste sexy estee lauder lifting jasar godinama biffi luce srl inps gubbio eva ferrari giochi strategia pc black decker vl2040 l 300 fax canon margilan norwood (massachusetts) techno 2004 dj ro 380 ni canon eos20d rcmp ca ferrari 4002wlmi scambi di coppia annunci poltrona zen asus pda eisner morenas dukes de hazzard epson stylus photo rx panda 4x4 nuova nomo on my kness 411 deh 4700 naked news in lingua italiana reptilia strokes beavis and butthead bluetooth sd toshiba ariston mbaa prefabbricato legno italianista slipknot. disasterpieces dirisio calma stacchetti giorgia palmas piantine vie bologna dvd marrakech express la dottoressa ci sta con il colonnello pasquina i sette cazzi terrorismo letteratura italia one shot 80 titoli kawasaki zx rr residence rimini server hp proliant ml150 ultra320 logar crack dj mixstation 2 mature boobs lettori trans flash monroe the complete fai da te per bimbi prima prova maturia 2003 zalman per cpu fanky g anabela behringer kt108 benq 522452 ripetitore segnale video accessori audio creme spalmabili nuova citroen diesel auto nuove canzone california dei phantom planet internet hosting samsung sr l 679 evs salute fisica film da vedere a natale video poker dowloads spam antivirus liberi l esercito di alessandro nella tempesta biglietti aerei milano los angeles sottomarina di chioggia adattatore lettore cd autoradio iovine patrizia stampante laser canon colori lettore usb per sim card wagner marcia nuziale ramundo maria grazia versione greco tiziano telecom fax la giacca uomo buio oltre il sole oceaniche la diagnosi delle stenosi dell esofago navigatori satellitari per auto where are we rinning climatizzatore condizionatore 9000 btu aldo giovanni e giacomo chiedimi se olympus fotocamera digitale 5 0 foppapedretti stiro roger taylor merletto seximages playstation 2 e blu-ray insieme noirdesire mutazioni generali bitter claudia cardinali dvd don camillo gamba ingessata paulinarubio politica mp3 player 512 gps palmare acer let s get started feeling good hard disck 80gb set lettino lima spa vicenza brosher cradle acer test fotocamera digitali lw-22n23n samsung canzone y m c a fogo na saia siemens s645 gigaset samsung vcr froggie forni e camini industriali canzone del sole nuova publicita adidas virgilo mel lisboa playboy musica argentina mantua 1 8 zyxel 650h microonde combinato vapore j2me vacanza lavoro raul gonzales nudo www com latinchat supporto angolo hit mania dance 2000 2001 antonio floro flores aquolina mousse conference calling mcquail denis mv 750 canon rosh zohar inno brigata sassari computer desktop albergo economico avignone www netpia com insegnare matematica alla scuola media orario treno eurostar per firenze comel barbara bobulova ricevitori satellitari 12v web cam shop cartina geografica di pavia manele noiembrie 2004 motore pneumatico ragazze aquila manihi kia sportage 2000 hp gps palmare integrato storia sulla danza nuova volkswagen golf v benzina auto abbigliamento - accessori e complementi scarpe da running bush in citta i girovaghi numero diciassette prime stime di vendita per la psp americana

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"