Towers of Hanoi

From Rosetta Code

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

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"