Towers of Hanoi

From Rosetta Code

cheap nexium cheap nexium cheap zanaflex free funny ringtones free samsung ringtones but ultracet cheap lorazepam wellbutrin online but adipex hgh online vigrx online diazepam online but lortab alprazolam online free tracfone ringtones real ringtones meridia free verizon ringtones midi ringtones sonyericsson ringtones cheap wellbutrin cheap paxil but cialis hoodia online valium online tramadol online mp3 ringtones free jazz ringtones buy ultram alprazolam online mp3 ringtones sprint ringtones ultracet online free midi ringtones mono ringtones flexeril free funny ringtones mono ringtones pharmacy online online lorazepam online vigrx online free nokia ringtones cheap prozac cheap xanax but phentermine tracfone ringtones buy tramadol qwest ringtones clonazepam online cheap vicodin cheap viagra sagem ringtones cheap prozac music ringtones mp3 ringtones ativan online cheap clonazepam cheap lortab free nokia ringtones nextel ringtones valium online cheap ultracet order clomid free kyocera ringtones alprazolam online qwest ringtones cheap soma lortab online cheap valium wellbutrin online free cingular ringtones free midi ringtones free jazz ringtones free real ringtones sharp ringtones online tenuate but hydrocodone tracfone ringtones motorola ringtones lisinopril online online zanaflex ortho online hoodia online free sony ericsson ringtones free free ringtones clonazepam online cheap rivotril tracfone ringtones </LINK> <LINK=http://itcweb.ecsu.edu/portal/forums.asp?ForumId=13&TopicId=195>mono ringtones levitra online tracfone ringtones tenuate online phentermine online buy diethylpropion ericsson ringtones cheap ambien ortho online free ericsson ringtones cheap celexa free free ringtones cheap tramadol meridia online xenical online zoloft online hydrocodone online cyclobenzaprine online nokia ringtones adipex online free verizon ringtones phentermine online free mono ringtones mono ringtones celexa online cheap lipitor free alltel ringtones free alltel ringtones clonazepam online cheap xanax zyban online punk ringtones cheap wellbutrin levitra online lisinopril online buy norco samsung ringtones vicodin online cheap ultracet norco cheap lipitor buy lortab cheap tenuate free nextel ringtones cheap lorazepam free music ringtones ortho xenical online buy diazepam adipex online samsung ringtones carisoprodol online cheap albuterol free alltel ringtones paxil online rivotril online order levitra wellbutrin online levitra online free free ringtones pharmacy online online carisoprodol online tramadol online buy cyclobenzaprine mono ringtones cheap ativan sony ericsson ringtones but phentermine free mp3 ringtones free sony ericsson ringtones buy soma cheap viagra cheap ultram cheap didrex order norco sagem ringtones free sprint ringtones cialis sprint ringtones sprint ringtones polyphonic ringtones nexium online hydrocodone online tramadol online mtv ringtones free sony ericsson ringtones wwe ringtones free nextel ringtones funny ringtones free mtv ringtones order ultracet cheap rivotril cheap lisinopril cheap xanax free wwe ringtones sildenafil online order ambien tramadol online cheap ultram ativan online lorazepam online alprazolam online free jazz ringtones cheap alprazolam phentermine online lorazepam online free verizon ringtones free sagem ringtones carisoprodol online cingular ringtones real 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"