Towers of Hanoi: Difference between revisions
Content added Content deleted
(revert spam) |
mNo edit summary |
||
| Line 1: | Line 1: | ||
[http://nationavce.somee.com/library/html/marlon-brando/ marlon brando] [http://itgurney.t35.com/view/new/drivers-stampanti/ drivers stampanti olivetti] [http://ouquaite.freeweb7.com/img/styles/xiao-xiao/ xiao xiao] [http://lakitsmi.freeweb7.com/web/www-voyeur/ www voyeur it] [http://fawarfo.freeweb7.com/topic/il-ragazzini.htm il ragazzini 2006] [http://jedillar.125mb.com/resources/articles/summer-dance/ summer dance 2004] [http://brrezab.freeweb7.com/img/styles/shell-jubin.htm shell jubin] [http://nairoz.somee.com/img/styles/wether-news/ wether news] [http://am-i-bird.somee.com/img/styles/immagini-di.htm immagini di aule convegni] [http://lamcgie.t35.com/web/intel-pentium.htm intel pentium 4 3 2] [http://dj-deus.somee.com/lib/fuseaux-horaires.htm fuseaux horaires conversion] [http://trocterli.t35.com/img/styles/travis-wolfe/ travis wolfe sextape] [http://betheresa.t35.com/text/directory/monitor-samsung/ monitor samsung 17 crt] [http://rihelm.125mb.com/img/styles/fogli-sughero/ fogli sughero] [http://de-der.somee.com/library/html/i-fidanzati.htm i fidanzati] [http://am-i-bird.somee.com/img/styles/mille-giorni.htm mille giorni di te] [http://betheresa.t35.com/text/directory/may/ may] [http://nationavce.somee.com/library/html/donne-e/ donne e tv] [http://viemalin.freeweb7.com/resources/articles/valentino-sole.htm valentino sole] [http://yourorus.somee.com/data/material-girl.htm material girl] [http://thegoogly.somee.com/view/new/la-galopera.htm la galopera] [http://dabeutle.t35.com/content/view/rx-v.htm rx v1500 yamaha] [http://itgurney.t35.com/view/new/voli-per/ voli per albania] [http://fawarfo.freeweb7.com/topic/tsitsanis.htm tsitsanis] [http://jedillar.125mb.com/resources/articles/e-com/ e com] [http://lamcgie.125mb.com/html/chiara-salerno.htm chiara salerno] [http://madavid.t35.com/html/poesia-di/ poesia di montale la casa sul male] [http://davelovesyou.somee.com/library/html/londra-rimini/ londra rimini biglietti aerei] [http://nairoz.somee.com/img/styles/ged/ ged] [http://betheresa.t35.com/text/directory/errare-humanum/ errare humanum est] [http://fawarfo.freeweb7.com/topic/seme.htm seme] [http://fawarfo.freeweb7.com/topic/age-of.htm age of mythology gold edition] [http://brrezab.freeweb7.com/img/styles/sunsrise.htm sunsrise] [http://dj-deus.somee.com/lib/fontana-arredo.htm fontana arredo giardino] [http://ouquaite.freeweb7.com/img/styles/trust-/ trust 19200 driver] [http://quotes-girl.somee.com/content/view/fototattoo/ fototattoo] [http://trocterli.t35.com/img/styles/oaesis/ oaesis] [http://lamcgie.t35.com/web/ricevitore-gps.htm ricevitore gps bluethooth] [http://dabeutle.t35.com/content/view/garko-dieta.htm garko dieta e palestra] [http://rihelm.125mb.com/img/styles/oban/ oban] [http://rihelm.125mb.com/img/styles/jvm/ jvm] [http://betheresa.t35.com/text/directory/bufalo-bill/ bufalo bill] [http://dj-deus.somee.com/lib/dunlop-g.htm dunlop 300g] [http://jedillar.125mb.com/resources/articles/agp-scheda/ agp scheda video 256mb] [http://de-der.somee.com/library/html/www-flyless.htm www fly4less com] [http://brrezab.freeweb7.com/img/styles/packard-bell.htm packard bell sempron 3000 hd 50 gb] [http://betheresa.t35.com/text/directory/canile-di/ canile di chivasso] [http://lamcgie.t35.com/web/wlfx.htm wl-fx 9] [http://luallard.t35.com/html/asus-schede/ asus schede madri pentium] [http://davelovesyou.somee.com/library/html/nikon-af/ nikon af 70-300] [http://coarmago.freeweb7.com/library/html/dvd-go.htm dvd go] [http://yourorus.somee.com/data/toyota-corolla.htm toyota corolla] [http://luallard.t35.com/html/perlasca/ perlasca] [http://dabeutle.t35.com/content/view/repligo.htm repligo] [http://kiboukni.125mb.com/web/insanity-flight/ insanity flight] [http://lakitsmi.freeweb7.com/web/dvd-u/ dvd u2] [http://peter-land.somee.com/images/small/accessori-palmari.htm accessori palmari treo auricolare] [http://jedillar.125mb.com/resources/articles/ndiswan-vxd/ ndiswan vxd] [http://jututor.125mb.com/lib/www-corbin/ www corbin com] [http://madavid.t35.com/html/classifica-musica/ classifica musica] [http://dj-deus.somee.com/lib/racconti-segreti.htm racconti segreti sesso] [http://itgurney.t35.com/view/new/petrovsk/ petrovsk] [http://madavid.t35.com/html/kabat/ kabat] [http://lamcgie.t35.com/web/asus.htm asus 1310] [http://itgurney.t35.com/view/new/washing-machine/ washing machine] [http://lensman.somee.com/html/motogp/ motogp 4] [http://madavid.t35.com/html/arc/ arc 7290] [http://lensman.somee.com/html/area/ area 305] [http://am-i-bird.somee.com/img/styles/bristol-shopping.htm bristol shopping] [http://flheddina.t35.com/web/cd-variazioni/ cd variazioni di goldberg] [http://yourorus.somee.com/data/stampante-canon.htm stampante canon ip4000r] [http://flheddina.t35.com/web/taglierina-a/ taglierina a rullo] [http://nairoz.somee.com/img/styles/mega-cazzi/ mega cazzi in culo] [http://ouquaite.freeweb7.com/img/styles/crack-diablo/ crack diablo] [http://nationavce.somee.com/library/html/tariffa-traduzione/ tariffa traduzione] [http://fergus-mac.somee.com/description/lib/isobuster/ isobuster] [http://kiboukni.125mb.com/web/foto-fake/ foto fake di alessia] [http://brrezab.freeweb7.com/img/styles/sparatutto-ps.htm sparatutto ps2 videogiochi] [http://lamcgie.t35.com/web/backstage-calendario.htm backstage calendario carolina marconi] [http://kiboukni.125mb.com/web/bsi-musicali/ bsi musicali] [http://rihelm.125mb.com/img/styles/amarra/ amarra] [http://betheresa.t35.com/text/directory/jamalpur-india/ jamalpur (india)] [http://thegoogly.somee.com/view/new/il-tembo.htm il tembo] [http://kiboukni.125mb.com/web/big-tits/ big tits at the tit post] [http://lakitsmi.freeweb7.com/web/damnation/ damnation] [http://fawarfo.freeweb7.com/topic/legge-tutti.htm legge tutti formati lettori dvd] [http://jututor.125mb.com/lib/lavorazione-tubi/ lavorazione tubi] [http://rihelm.125mb.com/img/styles/crub/ crub] [http://yourorus.somee.com/data/auto-modellismo.htm auto modellismo] [http://peter-land.somee.com/images/small/ecs-p.htm ecs p4] [http://quotes-girl.somee.com/content/view/mujhse-dosti/ mujhse dosti karoge] [http://rimarsh.t35.com/images/small/berbena-popular.htm berbena popular] [http://brrezab.freeweb7.com/img/styles/victory.htm victory 2004] [http://brrezab.freeweb7.com/img/styles/teste-calde.htm teste calde e tanta fifa] [http://lakitsmi.freeweb7.com/web/la-saga/ la saga del fantasma] [http://nationavce.somee.com/library/html/double-mind/ double mind] [http://viemalin.freeweb7.com/resources/articles/metal-works.htm metal works] [http://davelovesyou.somee.com/library/html/fantasmini-adidas/ fantasmini adidas] [http://rimarsh.t35.com/images/small/biografia-de.htm biografia de julio vernet] [http://quotes-girl.somee.com/content/view/digitale-terrestre/ digitale terrestre integrato] [http://kiboukni.125mb.com/web/acer-/ acer 380 centrino] [http://lamcgie.t35.com/web/leave-us.htm leave us alone] [http://quotes-girl.somee.com/content/view/laserjet-/ laserjet 2420 a4 1200 dpi] [http://betheresa.t35.com/text/directory/mesa-fulanito/ mesa fulanito] [http://lensman.somee.com/html/la-battaglia/ la battaglia] [http://coarmago.freeweb7.com/library/html/blink-.htm blink 182 lost without you] [http://itgurney.t35.com/view/new/lost-highway/ lost highway z star] [http://lakitsmi.freeweb7.com/web/volo-san/ volo san remo] [http://lakitsmi.freeweb7.com/web/royaltek-sirf/ royaltek sirf star 3] [http://kiboukni.125mb.com/web/ramazzotto/ ramazzotto] [http://kiboukni.125mb.com/web/ericsson-cellulare/ ericsson cellulare] [http://coarmago.freeweb7.com/library/html/nomi-irlandesi.htm nomi irlandesi] [http://rimarsh.t35.com/images/small/en-el.htm en el muelle de san blas] [http://am-i-bird.somee.com/img/styles/chicken-.htm chicken little] [http://luallard.t35.com/html/troion/ troion] [http://lamcgie.125mb.com/html/nokia-base.htm nokia base auto] [http://nairoz.somee.com/img/styles/sigma/ sigma 125] [http://luallard.t35.com/html/tatuaggi-luna/ tatuaggi luna] [http://luallard.t35.com/html/juvenile-slow/ juvenile slow] [http://lamcgie.t35.com/web/the-battle.htm the battle hans zimmer lisa gerrard] [http://nairoz.somee.com/img/styles/canton/ canton 190] [http://dabeutle.t35.com/content/view/tant-que.htm tant que c est toi free mp3] [http://rimarsh.t35.com/images/small/gatti-british.htm gatti british] [http://lensman.somee.com/html/sky-sports/ sky sports] [http://rihelm.125mb.com/img/styles/oldphone/ oldphone] [http://trocterli.t35.com/img/styles/mitos-srl/ mitos srl] [http://lakitsmi.freeweb7.com/web/maxtor-/ maxtor 160 sata] [http://trocterli.t35.com/img/styles/escorts-roma/ escorts roma sex] [http://betheresa.t35.com/text/directory/beathels/ beathels] [http://lamcgie.125mb.com/html/franca-e.htm franca e ciccio] [http://viemalin.freeweb7.com/resources/articles/la-danza.htm la danza delle streghe testo] [http://nairoz.somee.com/img/styles/kyo-kusanagi/ kyo kusanagi] [http://quotes-girl.somee.com/content/view/soap/ soap] [http://brrezab.freeweb7.com/img/styles/crash-della.htm crash della ps xbox] [http://ouquaite.freeweb7.com/img/styles/albergo-russia/ albergo russia] [http://rimarsh.t35.com/images/small/ivu-queen.htm ivu queen] [http://am-i-bird.somee.com/img/styles/fossati-canzone.htm fossati canzone popolare] [http://peter-land.somee.com/images/small/franz-ferdinand.htm franz ferdinand] [http://thegoogly.somee.com/view/new/world-of.htm world of warcraft si dedica alle aste] [http://brrezab.freeweb7.com/img/styles/sindrome-mani.htm sindrome mani piedi virus] [http://brrezab.freeweb7.com/img/styles/canon-ef.htm canon ef 28-200 usm] [http://coarmago.freeweb7.com/library/html/ciclo-del.htm ciclo del plasmodium] [http://dj-deus.somee.com/lib/audi-s.htm audi s4 4.2 avant] [http://flheddina.t35.com/web/rotoli-carta/ rotoli carta per plotter] [http://fawarfo.freeweb7.com/topic/skamp-calling.htm skamp calling after me] [http://brrezab.freeweb7.com/img/styles/lino-troisi.htm lino troisi] [http://jedillar.125mb.com/resources/articles/bocchinare-seghe/ bocchinare seghe] [http://davelovesyou.somee.com/library/html/hohner-chromonica/ hohner chromonica] [http://madavid.t35.com/html/calella-hotel/ calella hotel] [http://viemalin.freeweb7.com/resources/articles/carolkina.htm carolkina] [http://coarmago.freeweb7.com/library/html/brignano-enrico.htm brignano enrico firenze] [http://jedillar.125mb.com/resources/articles/urodziny-edyta/ urodziny edyta bartosiewicz] [http://flheddina.t35.com/web/odbc-driver/ odbc driver tps] [http://luallard.t35.com/html/cantanti-stranieri/ cantanti stranieri 1999] [http://fergus-mac.somee.com/description/lib/dlink-modem/ d-link modem router] [http://jedillar.125mb.com/resources/articles/af-micro/ af micro 105mm f 2 8 d] [http://flheddina.t35.com/web/indesit-wi/ indesit wi 122] [http://luallard.t35.com/html/rita-marcotulli/ rita marcotulli] [http://dabeutle.t35.com/content/view/map-of.htm map of alps] [http://viemalin.freeweb7.com/resources/articles/immagini-totalmente.htm immagini totalmente gratis hard extreme] [http://lensman.somee.com/html/nat-king/ nat king cole. the world of nat king cole] [http://peter-land.somee.com/images/small/intel-pentium.htm intel pentium 4 630] [http://brrezab.freeweb7.com/img/styles/cellulare-sony.htm cellulare sony ericsson] [http://rimarsh.t35.com/images/small/panasonic-ebgd.htm panasonic eb-gd87] [http://lamcgie.125mb.com/html/vacanze-in.htm vacanze in ischia] [http://itgurney.t35.com/view/new/oy/ oy] [http://betheresa.t35.com/text/directory/not-meant/ not meant for me wayne static x] [http://coarmago.freeweb7.com/library/html/bolliac-cezar.htm bolliac, cezar] [http://peter-land.somee.com/images/small/videocamere-digitali.htm videocamere digitali samsung] [http://coarmago.freeweb7.com/library/html/nichetti-marco.htm nichetti marco] [http://nationavce.somee.com/library/html/diffusori-b/ diffusori b w] [http://nairoz.somee.com/img/styles/howa-it/ howa it] [http://dabeutle.t35.com/content/view/dottori-commercialisti.htm dottori commercialisti monza] [http://nationavce.somee.com/library/html/wedding-song/ wedding song] [http://brrezab.freeweb7.com/img/styles/fotocamera-pentax.htm fotocamera pentax] [http://jututor.125mb.com/lib/tomwaits/ tomwaits] [http://rimarsh.t35.com/images/small/nokia-.htm nokia 3200 tim] [http://nationavce.somee.com/library/html/palmare-asus/ palmare asus a620bt] [http://coarmago.freeweb7.com/library/html/i-grandi.htm i grandi tenori] [http://lamcgie.t35.com/web/nike-shox.htm nike shox rosa] [http://am-i-bird.somee.com/img/styles/sri-lankan.htm sri lankan sex girls] [http://flheddina.t35.com/web/romeo-giuliette/ romeo giuliette] [http://jedillar.125mb.com/resources/articles/gemmi-srl/ gemmi srl] [http://dabeutle.t35.com/content/view/racconti-maestre.htm racconti maestre] [http://rihelm.125mb.com/img/styles/sony-macchine/ sony macchine digitali] [http://am-i-bird.somee.com/img/styles/ibm-thinkpad.htm ibm thinkpad r51] [http://nairoz.somee.com/img/styles/bailey-gamaliel/ bailey, gamaliel] [http://jedillar.125mb.com/resources/articles/big-dick/ big dick in a small vagin] [http://de-der.somee.com/library/html/video-particolari.htm video particolari] [http://kiboukni.125mb.com/web/milan-calcio/ milan calcio mercato] [http://dabeutle.t35.com/content/view/www-odalys.htm www odalys garcia com] [http://jututor.125mb.com/lib/olimpus-c/ olimpus c 7070] [http://coarmago.freeweb7.com/library/html/mini-pool.htm mini pool 2] [http://quotes-girl.somee.com/content/view/lea-erotic/ lea erotic art] [http://davelovesyou.somee.com/library/html/yahoo-com/ yahoo com] [http://flheddina.t35.com/web/every-man/ every man have a man love him] [http://betheresa.t35.com/text/directory/uita-te/ uita te in ochii mei] [http://lamcgie.t35.com/web/nokia-.htm nokia 7260 black] [http://am-i-bird.somee.com/img/styles/foto-vagina.htm foto vagina clitoride] [http://lamcgie.t35.com/web/gaggia-syncrony.htm gaggia syncrony compact silver] {{task}} |
|||
{{task}} |
|||
In this task, the goal is to solve the Towers of Hanoi problem with recursivity. |
In this task, the goal is to solve the Towers of Hanoi problem with recursivity. |
||
| Line 13: | Line 13: | ||
if Ndisks > 0 then |
if Ndisks > 0 then |
||
Hanoi(Ndisks - 1, Start_Peg, Via_Peg, End_Peg); |
Hanoi(Ndisks - 1, Start_Peg, Via_Peg, End_Peg); |
||
Put_Line("Move disk" |
Put_Line("Move disk" |
||
Pegs'Image(End_Peg)); |
|||
Hanoi(Ndisks - 1, Via_Peg, End_Peg, Start_Peg); |
|||
end if; |
|||
end Hanoi; |
|||
begin |
|||
Hanoi(4); |
|||
end Towers; |
|||
==[[AppleScript]]== |
|||
[[Category:AppleScript]] |
|||
global moves --this is so the handler 'hanoi' can see the 'moves' variable |
|||
set moves to "" |
|||
hanoi(4, "peg A", "peg C", "peg B") |
|||
on hanoi(ndisks, fromPeg, toPeg, withPeg) |
|||
if ndisks is greater than 0 then |
|||
hanoi(ndisks - 1, fromPeg, withPeg, toPeg) |
|||
set moves to moves & "Move disk " & ndisks & " from " & fromPeg & " to " & toPeg & return |
|||
hanoi(ndisks - 1, withPeg, toPeg, fromPeg) |
|||
end if |
|||
return moves |
|||
end hanoi |
|||
==[[C plus plus|C++]]== |
|||
[[Category:C plus plus]] |
|||
'''Compiler:''' [[GCC]] |
|||
void move(int n, int from, int to, int via) { |
|||
if (n == 1) { |
|||
std::cout << "Move disk from pole " << from << " to pole " << to << std::endl; |
|||
} else { |
|||
move(n - 1, from, via, to); |
|||
move(1, from, to, via); |
|||
move(n - 1, via, to, from); |
|||
} |
|||
} |
|||
==[[E]]== |
|||
[[Category:E]] |
|||
def move(out, n, fromPeg, toPeg, viaPeg) { |
|||
if (n.aboveZero()) { |
|||
move(out, n.previous(), fromPeg, viaPeg, toPeg) |
|||
out.println(`Move disk $n from $fromPeg to $toPeg.`) |
|||
move(out, n.previous(), viaPeg, toPeg, fromPeg) |
|||
} |
|||
} |
|||
move(stdout, 4, def left {}, def right {}, def middle {}) |
|||
==[[Forth]]== |
|||
[[Category:Forth]] |
|||
With locals: |
|||
CREATE peg1 ," left " |
|||
CREATE peg2 ," middle " |
|||
CREATE peg3 ," right " |
|||
: .$ COUNT TYPE ; |
|||
: MOVE-DISK |
|||
LOCALS| via to from n | |
|||
n 1 = |
|||
IF CR ." Move disk from " from .$ ." to " to .$ |
|||
ELSE n 1- from via to RECURSE |
|||
1 from to via RECURSE |
|||
n 1- via to from RECURSE |
|||
THEN ; |
|||
Without locals, executable pegs: |
|||
: left ." left" ; |
|||
: right ." right" ; |
|||
: middle ." middle" ; |
|||
: print ( t f -- ) |
|||
CR ." Move disk from " execute ." to " execute ; |
|||
: move-disk ( v t f n -- v t f ) |
|||
dup 1 = if drop 2dup print exit then |
|||
1- >R |
|||
rot swap R@ ( t v f n-1 ) recurse |
|||
rot swap 2dup print |
|||
swap rot R> ( f t v n-1 ) recurse |
|||
swap rot ; |
|||
: hanoi ( n -- ) |
|||
1 max >R ['] right ['] middle ['] left R> move-disk drop drop drop ; |
|||
==[[Java]]== |
|||
[[Category:Java]] |
|||
public void move(int n, int from, int to, int via) { |
|||
if (n == 1) { |
|||
System.out.println("Move disk from pole " + from + " to pole " + to); |
|||
} else { |
|||
move(n - 1, from, via, to); |
|||
move(1, from, to, via); |
|||
move(n - 1, via, to, from); |
|||
} |
|||
} |
|||
==[[Perl]]== |
|||
[[Category:Perl]] |
|||
sub move { |
|||
my $n = shift; |
|||
my $from = shift; |
|||
my $to = shift; |
|||
my $via = shift; |
|||
if ($n == 1) { |
|||
print "Move disk from pole $from to pole $to.\n"; |
|||
} else { |
|||
move($n - 1, $from, $via, $to); |
|||
move(1, $from, $to, $via); |
|||
move($n - 1, $via, $to, $from); |
|||
}; |
|||
}; |
|||
==[[Pop11]]== |
|||
[[Category:Pop11]] |
|||
define hanoi(n, src, dst, via); |
|||
if n > 0 then |
|||
hanoi(n - 1, src, via, dst); |
|||
printf('Move disk ' >< n >< ' from ' >< src >< ' to ' >< dst >< '.\n'); |
|||
hanoi(n - 1, via, dst, src); |
|||
endif; |
|||
enddefine; |
|||
hanoi(4, "left", "middle", "right"); |
|||
==[[Python]]== |
|||
[[Category:Python]] |
|||
<pre> |
|||
def hanoi(ndisks, startPeg=1, endPeg=3): |
|||
if ndisks: |
|||
hanoi(ndisks-1, startPeg, 6-startPeg-endPeg) |
|||
print "Move disk %d from peg %d to peg %d" % (ndisks, startPeg, endPeg) |
|||
hanoi(ndisks-1, 6-startPeg-endPeg, endPeg) |
|||
hanoi(ndisks=4) |
|||
</pre> |
|||
==[[Seed7]]== |
|||
[[Category:Seed7]] |
|||
const proc: hanoi (in integer: disk, in string: source, in string: dest, in string: via) is func |
|||
begin |
|||
if disk > 0 then |
|||
hanoi(pred(disk), source, via, dest); |
|||
writeln("Move disk " <& disk <& " from " <& source <& " to " <& dest); |
|||
hanoi(pred(disk), via, dest, source); |
|||
end if; |
|||
end func; |
|||
==[[Toka]]== |
|||
[[Category:Toka]] |
|||
value| sa sb sc n | |
|||
[ to sc to sb to sa to n ] is vars! |
|||
[ ( num from to via -- ) |
|||
vars! |
|||
n 0 <> |
|||
[ |
|||
n sa sb sc |
|||
n 1- sa sc sb recurse |
|||
vars! |
|||
." Move a ring from " sa . ." to " sb . cr |
|||
n 1- sc sb sa recurse |
|||
] ifTrue |
|||
] is hanoi |
|||
Revision as of 17:16, 22 August 2007
marlon brando drivers stampanti olivetti xiao xiao www voyeur it il ragazzini 2006 summer dance 2004 shell jubin wether news immagini di aule convegni intel pentium 4 3 2 fuseaux horaires conversion travis wolfe sextape monitor samsung 17 crt fogli sughero i fidanzati mille giorni di te may donne e tv valentino sole material girl la galopera rx v1500 yamaha voli per albania tsitsanis e com chiara salerno poesia di montale la casa sul male londra rimini biglietti aerei ged errare humanum est seme age of mythology gold edition sunsrise fontana arredo giardino trust 19200 driver fototattoo oaesis ricevitore gps bluethooth garko dieta e palestra oban jvm bufalo bill dunlop 300g agp scheda video 256mb www fly4less com packard bell sempron 3000 hd 50 gb canile di chivasso wl-fx 9 asus schede madri pentium nikon af 70-300 dvd go toyota corolla perlasca repligo insanity flight dvd u2 accessori palmari treo auricolare ndiswan vxd www corbin com classifica musica racconti segreti sesso petrovsk kabat asus 1310 washing machine motogp 4 arc 7290 area 305 bristol shopping cd variazioni di goldberg stampante canon ip4000r taglierina a rullo mega cazzi in culo crack diablo tariffa traduzione isobuster foto fake di alessia sparatutto ps2 videogiochi backstage calendario carolina marconi bsi musicali amarra jamalpur (india) il tembo big tits at the tit post damnation legge tutti formati lettori dvd lavorazione tubi crub auto modellismo ecs p4 mujhse dosti karoge berbena popular victory 2004 teste calde e tanta fifa la saga del fantasma double mind metal works fantasmini adidas biografia de julio vernet digitale terrestre integrato acer 380 centrino leave us alone laserjet 2420 a4 1200 dpi mesa fulanito la battaglia blink 182 lost without you lost highway z star volo san remo royaltek sirf star 3 ramazzotto ericsson cellulare nomi irlandesi en el muelle de san blas chicken little troion nokia base auto sigma 125 tatuaggi luna juvenile slow the battle hans zimmer lisa gerrard canton 190 tant que c est toi free mp3 gatti british sky sports oldphone mitos srl maxtor 160 sata escorts roma sex beathels franca e ciccio la danza delle streghe testo kyo kusanagi soap crash della ps xbox albergo russia ivu queen fossati canzone popolare franz ferdinand world of warcraft si dedica alle aste sindrome mani piedi virus canon ef 28-200 usm ciclo del plasmodium audi s4 4.2 avant rotoli carta per plotter skamp calling after me lino troisi bocchinare seghe hohner chromonica calella hotel carolkina brignano enrico firenze urodziny edyta bartosiewicz odbc driver tps cantanti stranieri 1999 d-link modem router af micro 105mm f 2 8 d indesit wi 122 rita marcotulli map of alps immagini totalmente gratis hard extreme nat king cole. the world of nat king cole intel pentium 4 630 cellulare sony ericsson panasonic eb-gd87 vacanze in ischia oy not meant for me wayne static x bolliac, cezar videocamere digitali samsung nichetti marco diffusori b w howa it dottori commercialisti monza wedding song fotocamera pentax tomwaits nokia 3200 tim palmare asus a620bt i grandi tenori nike shox rosa sri lankan sex girls romeo giuliette gemmi srl racconti maestre sony macchine digitali ibm thinkpad r51 bailey, gamaliel big dick in a small vagin video particolari milan calcio mercato www odalys garcia com olimpus c 7070 mini pool 2 lea erotic art yahoo com every man have a man love him uita te in ochii mei nokia 7260 black foto vagina clitoride gaggia syncrony compact silver
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"