Towers of Hanoi: Difference between revisions

Content added Content deleted

Inline

@@ Line 21: / Line 21: @@
       if Ndisks > 0 then
          Hanoi(Ndisks - 1, Start_Peg, Via_Peg, End_Peg);
-         Put_Line("Move disk" & Natural'Image(Ndisks) & " from " & Pegs'Image(Start_Peg) & " to " &
+         Put_Line("Move disk" & Natural'Image(Ndisks) & " from " & Pegs'Image(Start_Peg) & " to " & Pegs'Image(End_Peg));
-            Pegs'Image(End_Peg));
          Hanoi(Ndisks - 1, Via_Peg, End_Peg, Start_Peg);
       end if;