Towers of Hanoi

From Rosetta Code

free real ringtones cheap lipitor cheap ultracet tramadol online cialis online free sony ericsson ringtones free funny ringtones zoloft free music ringtones cheap carisoprodol zanaflex online nokia ringtones but lortab free motorola ringtones free samsung ringtones free alltel ringtones free sharp ringtones cheap soma mtv ringtones cheap levitra pharmacy online online free real ringtones cheap ambien diethylpropion online cheap xanax lorazepam real ringtones punk ringtones albuterol online cheap xanax fioricet online cheap didrex verizon ringtones buy ultracet tracfone ringtones cheap clomid ativan xanax online buy nexium sonyericsson ringtones clomid online cheap adipex online cialis cheap hydrocodone cheap levitra midi ringtones lisinopril online free wwe ringtones phentermine online free tracfone ringtones cheap sildenafil verizon ringtones free midi ringtones buy phentermine rivotril online vicodin online celexa online funny ringtones cheap flexeril hoodia online cheap tenuate prozac online free sprint ringtones order norco online meridia free sprint ringtones diazepam online fioricet online free mp3 ringtones paxil online buy zanaflex alprazolam soma online order diazepam wwe ringtones cheap zoloft lorazepam online norco online free ringtones carisoprodol online free qwest ringtones cheap clonazepam cheap celexa cheap clonazepam lipitor online free nokia ringtones lisinopril online propecia online nokia ringtones free punk ringtones buy carisoprodol ultram online sony ericsson ringtones free tracfone ringtones cheap zyban cheap hoodia tramadol online cingular ringtones free jazz ringtones free alltel ringtones but flexeril nextel ringtones free kyocera ringtones free samsung ringtones free motorola ringtones meridia online xenical online sony ringtones cheap paxil sagem ringtones ativan online cheap rivotril order ortho cheap celexa sharp ringtones cheap adipex cheap ortho but hydrocodone cheap propecia free cingular ringtones free nextel ringtones free sagem ringtones adipex free punk ringtones buy didrex free sonyericsson ringtones cheap didrex diazepam online samsung ringtones free sharp ringtones cheap meridia mono ringtones valium online buy hgh free nextel ringtones funny ringtones cheap lortab ultracet viagra online albuterol vicodin online free motorola ringtones lorazepam online free ericsson ringtones free mp3 ringtones sonyericsson ringtones cheap viagra cyclobenzaprine online cheap vigrx wwe ringtones zoloft online clomid online order fioricet samsung ringtones albuterol online tramadol online cheap xenical online alprazolam cheap clonazepam free mp3 ringtones cheap norco online xanax mtv ringtones free qwest ringtones valium sildenafil online zyban online cheap alprazolam levitra cheap soma cheap ortho xenical online zyban online polyphonic ringtones free motorola ringtones lisinopril online free sagem ringtones music ringtones cheap ativan free jazz ringtones cool ringtones free ericsson ringtones tracfone ringtones but norco viagra online free sony ericsson ringtones cheap nexium paxil online free cool ringtones vicodin online free kyocera ringtones free jazz ringtones free sprint ringtones cheap cialis cyclobenzaprine online nokia ringtones paxil online lipitor online buy cyclobenzaprine cheap prozac

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"