Towers of Hanoi: Difference between revisions
Content added Content deleted
(revert spam) |
mNo edit summary |
||
| Line 1: | Line 1: | ||
[http://zeakk.ifrance.com/resources/articles/fifa-.htm fifa 2005 per gamecube] [http://flawedamythyst.ifrance.com/img/styles/geko.htm geko 301] [http://zeakk.ifrance.com/resources/articles/lennon.htm lennon] [http://smegmacheez.ifrance.com/content/view/ragazzi-di/ ragazzi di vita pasolini libri] [http://nokros.ifrance.com/data/nissan-primera/ nissan primera diesel km0] [http://flawedamythyst.ifrance.com/img/styles/sigma-mm.htm sigma 400mm] [http://cocopuff66.ifrance.com/text/directory/ladybug/ ladybug] [http://smegmacheez.ifrance.com/content/view/ladi-di/ ladi di] [http://cocopuff66.ifrance.com/text/directory/manzoni-alessandro/ manzoni alessandro] [http://mfirishka.ifrance.com/view/new/videoregistratore-lettore.htm videoregistratore lettore dvd] [http://mfirishka.ifrance.com/view/new/fantacalcio-voti.htm fantacalcio voti gazzetta] [http://trumanburb.ifrance.com/view/new/wagering.htm wagering] [http://nokros.ifrance.com/data/dresser-wheel/ dresser wheel loader] [http://smegmacheez.ifrance.com/content/view/adattatore-usb/ adattatore usb joystick gamepad] [http://smegmacheez.ifrance.com/content/view/domanda-di/ domanda di ammissione a concorso] [http://cocopuff66.ifrance.com/text/directory/camere-villasimius/ camere villasimius] [http://gajar.ifrance.com/html/scorpions-acoustica.htm scorpions. acoustica] [http://atrayah.ifrance.com/topic/gargallo.htm gargallo] [http://sm4.ifrance.com/lib/donsella/ donsella] [http://sm4.ifrance.com/lib/cafenoir/ cafenoir] [http://lekusya.ifrance.com/library/html/nuovi-driver/ nuovi driver certificati windowsxp per nvidia] [http://smegmacheez.ifrance.com/content/view/mitsubishi-usato/ mitsubishi usato] [http://cocopuff66.ifrance.com/text/directory/tennis-e/ tennis e (altri giochi con le racchette)] [http://joshuaw-wise.ifrance.com/img/styles/finanziamento-fossano/ finanziamento fossano] [http://call-shotgun.ifrance.com/view/new/incasso-frigorifero/ incasso frigorifero] [http://cocopuff66.ifrance.com/text/directory/in-the/ in the red dvd] [http://atrayah.ifrance.com/topic/scan-dual.htm scan dual] [http://squoi-oop.ifrance.com/topic/garmin-gps/ garmin gps 76] [http://alishca-st.ifrance.com/text/directory/freddure.htm freddure] [http://gabe95.ifrance.com/html/macchinari-per/ macchinari per frantoi] [http://call-shotgun.ifrance.com/view/new/cartografia-de/ cartografia de comune di bologna] [http://nokros.ifrance.com/data/the-flower/ the flower kings. meet the flower kings. live recording 2003] [http://smegmacheez.ifrance.com/content/view/immagini-pasqua/ immagini pasqua] [http://atrayah.ifrance.com/topic/she-will.htm she will loved] [http://lekusya.ifrance.com/library/html/deskpot-genoa/ deskpot genoa] [http://lightmyfire0214.ifrance.com/topic/cartagena/ cartagena] [http://atrayah.ifrance.com/topic/della-segretaria.htm della segretaria] [http://alishca-st.ifrance.com/text/directory/ave-maria.htm ave maria di schubert anche parole] [http://cocopuff66.ifrance.com/text/directory/foto-di/ foto di ludmilla radchenko] [http://squoi-oop.ifrance.com/topic/rx-palmari/ rx3715 palmari] [http://gabe95.ifrance.com/html/dvd-video/ dvd video recorder] [http://sm4.ifrance.com/lib/ufficio-venezia/ ufficio venezia] [http://lightmyfire0214.ifrance.com/topic/powermust-va/ powermust 800va pro] [http://flawedamythyst.ifrance.com/img/styles/jolly-blu.htm jolly blu] [http://mfirishka.ifrance.com/view/new/videos-de.htm videos de porno] [http://gabe95.ifrance.com/html/quiero-estar/ quiero estar contigo] [http://cocopuff66.ifrance.com/text/directory/paris-hilto/ paris hilto] [http://zeakk.ifrance.com/resources/articles/un-thriller.htm un thriller per twiggy] [http://krychan.ifrance.com/content/view/software-per.htm software per codi sblocco motorola a835] [http://horcrionebay.ifrance.com/resources/articles/kathy-s.htm kathy s song] [http://cocopuff66.ifrance.com/text/directory/katia-lel/ katia lel] [http://lekusya.ifrance.com/library/html/clinica-villa/ clinica villa stuard] [http://cocopuff66.ifrance.com/text/directory/filumena/ filumena] [http://cocopuff66.ifrance.com/text/directory/ctqui/ ctqui] [http://zeakk.ifrance.com/resources/articles/skank-vamos.htm skank vamos fugir] [http://mfirishka.ifrance.com/view/new/le-.htm le punizioni] [http://dejablu503.ifrance.com/description/lib/sleep-assault.htm sleep assault] [http://squoi-oop.ifrance.com/topic/recover-my/ recover my file 2 53] [http://gabe95.ifrance.com/html/renault-scenic/ renault scenic 2002] [http://lekusya.ifrance.com/library/html/cuffie-audio/ cuffie audio bluetooth] [http://cocopuff66.ifrance.com/text/directory/la-stazione/ la stazione ferroviaria] [http://horcrionebay.ifrance.com/resources/articles/fragma-toca.htm fragma toca me] [http://krychan.ifrance.com/content/view/big-city.htm big city life gratis] [http://flawedamythyst.ifrance.com/img/styles/strawberry-nude.htm strawberry nude] [http://mfirishka.ifrance.com/view/new/kaoma.htm kaoma] [http://krychan.ifrance.com/content/view/dj-aligator.htm dj aligator dragostea din tei] [http://squoi-oop.ifrance.com/topic/oranienbaum/ oranienbaum] [http://gajar.ifrance.com/html/indiane.htm indiane] [http://nokros.ifrance.com/data/diddl-peluche/ diddl peluche 120] [http://alishca-st.ifrance.com/text/directory/la-venere.htm la venere dei pirati] [http://joshuaw-wise.ifrance.com/img/styles/obudzisz-mnie/ obudzisz mnie] [http://alishca-st.ifrance.com/text/directory/hp-laser.htm hp laser 1022] [http://joshuaw-wise.ifrance.com/img/styles/canon-cartuccia/ canon cartuccia compatibile] [http://cocopuff66.ifrance.com/text/directory/pro-soccer/ pro soccer evolution 4] [http://sm4.ifrance.com/lib/scatoline-in/ scatoline in livorno] [http://atrayah.ifrance.com/topic/lady-bag.htm lady bag] [http://smegmacheez.ifrance.com/content/view/chat-navighiamo/ chat navighiamo] [http://cocopuff66.ifrance.com/text/directory/toner-xerox/ toner xerox phaser 3450] [http://nokros.ifrance.com/data/piscina-melzo/ piscina melzo] [http://alishca-st.ifrance.com/text/directory/www-happy.htm www happy days it] [http://trumanburb.ifrance.com/view/new/televisore-al.htm televisore al plasma 50] [http://joshuaw-wise.ifrance.com/img/styles/frigorifero-beige/ frigorifero beige] [http://atrayah.ifrance.com/topic/fondi-nextra.htm fondi nextra] [http://trumanburb.ifrance.com/view/new/vendita-canoa.htm vendita canoa usata] [http://zeakk.ifrance.com/resources/articles/moneda.htm moneda] [http://sm4.ifrance.com/lib/er-cipolla/ er cipolla suoneria] [http://krychan.ifrance.com/content/view/il-ragazzo.htm il ragazzo che sorride] [http://cocopuff66.ifrance.com/text/directory/gisela-dulko/ gisela dulko] [http://gajar.ifrance.com/html/ma-de.htm ma de ra acciai srl] [http://cocopuff66.ifrance.com/text/directory/francesca-loto/ francesca loto] [http://cocopuff66.ifrance.com/text/directory/whirlpool-jt/ whirlpool jt 359] [http://dejablu503.ifrance.com/description/lib/frasi-per.htm frasi per nascite] [http://sm4.ifrance.com/lib/legge-/ legge 8 agosto n 443] [http://nokros.ifrance.com/data/hard-disk/ hard disk] [http://call-shotgun.ifrance.com/view/new/relisys/ relisys 19] [http://gajar.ifrance.com/html/vlado-georgiev.htm vlado georgiev] [http://squoi-oop.ifrance.com/topic/il-caso/ il caso raffaello] [http://flawedamythyst.ifrance.com/img/styles/concerto-anastacia.htm concerto anastacia] [http://trumanburb.ifrance.com/view/new/ed-e.htm ed e subito sera] [http://horcrionebay.ifrance.com/resources/articles/i-vini.htm i vini italiani] [http://alishca-st.ifrance.com/text/directory/codice-risiko.htm codice risiko] [http://alishca-st.ifrance.com/text/directory/genova-donne.htm genova donne] [http://joshuaw-wise.ifrance.com/img/styles/crazy-climber/ crazy climber] [http://joshuaw-wise.ifrance.com/img/styles/decodage-chaines/ decodage chaines numeriques] [http://cocopuff66.ifrance.com/text/directory/import-export/ import export arredamento] [http://dejablu503.ifrance.com/description/lib/pantaloni-diesel.htm pantaloni diesel] [http://mfirishka.ifrance.com/view/new/le-rb.htm le 26r51b samsung] [http://atrayah.ifrance.com/topic/come-raggiungere.htm come raggiungere la fiera di rimini] [http://squoi-oop.ifrance.com/topic/rotel-amplificatori/ rotel amplificatori] [http://smegmacheez.ifrance.com/content/view/darkman/ darkman] [http://sm4.ifrance.com/lib/volvo-v/ volvo v40 prestige] [http://mfirishka.ifrance.com/view/new/mariella-nava.htm mariella nava] [http://flawedamythyst.ifrance.com/img/styles/open-range.htm open range alta definizione] [http://joshuaw-wise.ifrance.com/img/styles/faringitis/ faringitis] [http://krychan.ifrance.com/content/view/albergo-.htm albergo 5 stella nizza] [http://gabe95.ifrance.com/html/nudismo-fkk/ nudismo fkk] [http://dejablu503.ifrance.com/description/lib/borsa-converse.htm borsa converse] [http://cocopuff66.ifrance.com/text/directory/kate-lawler/ kate lawler] [http://horcrionebay.ifrance.com/resources/articles/iomega-masterizzatore.htm iomega masterizzatore] [http://squoi-oop.ifrance.com/topic/portatile-televisore/ portatile televisore] [http://alishca-st.ifrance.com/text/directory/decappaggio.htm decappaggio] [http://smegmacheez.ifrance.com/content/view/operazione-poker/ operazione poker] [http://mfirishka.ifrance.com/view/new/microonde-forno.htm microonde forno elettrico] [http://lightmyfire0214.ifrance.com/topic/meinhof-carl/ meinhof, carl] [http://gabe95.ifrance.com/html/cazzi-in/ cazzi in culo] [http://dejablu503.ifrance.com/description/lib/scoobydoo-i.htm scooby-doo. i misteri doriente] [http://lekusya.ifrance.com/library/html/hot-party/ hot party 2003] [http://call-shotgun.ifrance.com/view/new/djurado/ djurado] [http://atrayah.ifrance.com/topic/nada-val.htm nada val] [http://lekusya.ifrance.com/library/html/finanziamenti-cambializzati/ finanziamenti cambializzati on line] [http://call-shotgun.ifrance.com/view/new/da-vga/ da vga a tv] [http://trumanburb.ifrance.com/view/new/fotocamere-hp.htm fotocamere hp m517] [http://cocopuff66.ifrance.com/text/directory/auto-noleggio/ auto noleggio assago] [http://gabe95.ifrance.com/html/dolce-gabbana/ dolce gabbana gonne donna] [http://trumanburb.ifrance.com/view/new/desperado-el.htm desperado el mariachi] [http://mfirishka.ifrance.com/view/new/cecchinato-srl.htm cecchinato srl] [http://mfirishka.ifrance.com/view/new/asian-blowjob.htm asian blowjob] [http://squoi-oop.ifrance.com/topic/famiglie/ famiglie] [http://lekusya.ifrance.com/library/html/wireless-audio/ wireless audio video] [http://call-shotgun.ifrance.com/view/new/yamaha-xt/ yamaha xt 660 r] [http://nokros.ifrance.com/data/misamis-oriental/ misamis oriental] [http://joshuaw-wise.ifrance.com/img/styles/jordan-rudes/ jordan rudes] [http://alishca-st.ifrance.com/text/directory/filettatura.htm filettatura] [http://call-shotgun.ifrance.com/view/new/beheading-michael/ beheading michael berg] [http://trumanburb.ifrance.com/view/new/ricette-per.htm ricette per l estate] [http://horcrionebay.ifrance.com/resources/articles/fuga-.htm fuga dall isola] [http://flawedamythyst.ifrance.com/img/styles/bosch-sgs.htm bosch sgs 45] [http://lightmyfire0214.ifrance.com/topic/canon-eos/ canon eos-350] [http://cocopuff66.ifrance.com/text/directory/fouk/ fouk] [http://squoi-oop.ifrance.com/topic/np/ np 55] [http://lightmyfire0214.ifrance.com/topic/offerte-di/ offerte di lavoro provincia mc] [http://lekusya.ifrance.com/library/html/hafling/ hafling] [http://smegmacheez.ifrance.com/content/view/digitale-philips/ digitale philips dect 311] [http://cocopuff66.ifrance.com/text/directory/kierra-knightly/ kierra knightly] [http://joshuaw-wise.ifrance.com/img/styles/tv-al/ tv al plasma da 32] [http://zeakk.ifrance.com/resources/articles/dj-franchino.htm dj franchino] [http://dejablu503.ifrance.com/description/lib/banana-republic.htm banana republic] [http://zeakk.ifrance.com/resources/articles/voli-last.htm voli last minute] [http://lekusya.ifrance.com/library/html/televisore-hd/ televisore hd] [http://zeakk.ifrance.com/resources/articles/enrico-intra.htm enrico intra] [http://smegmacheez.ifrance.com/content/view/lo-slalom/ lo slalom] [http://lekusya.ifrance.com/library/html/van-cleef/ van cleef] [http://trumanburb.ifrance.com/view/new/rivombrosa.htm rivombrosa] [http://call-shotgun.ifrance.com/view/new/max-co/ max co] [http://call-shotgun.ifrance.com/view/new/que-sera/ que sera mi china] [http://call-shotgun.ifrance.com/view/new/ct-special/ ct special forces passa alle tre dimensioni] [http://joshuaw-wise.ifrance.com/img/styles/keith-emerson/ keith emerson] [http://zeakk.ifrance.com/resources/articles/la-palla.htm la palla n. 13] [http://lekusya.ifrance.com/library/html/cori-laziali/ cori laziali] [http://alishca-st.ifrance.com/text/directory/fotos-de.htm fotos de pollas] [http://flawedamythyst.ifrance.com/img/styles/krasnojarsk-territorio.htm krasnojarsk (territorio)] [http://smegmacheez.ifrance.com/content/view/caparezza-concerti/ caparezza concerti in lombardia] [http://squoi-oop.ifrance.com/topic/levante-mar/ levante, mar di-] [http://cocopuff66.ifrance.com/text/directory/cavo-dolby/ cavo dolby] [http://joshuaw-wise.ifrance.com/img/styles/cellurari/ cellurari] [http://joshuaw-wise.ifrance.com/img/styles/fujitsu/ fujitsu 15] [http://gabe95.ifrance.com/html/misa-criolla/ misa criolla fuego] [http://sm4.ifrance.com/lib/prodotti-cosmetico/ prodotti cosmetico naturali] [http://cocopuff66.ifrance.com/text/directory/blondei/ blondei] [http://dejablu503.ifrance.com/description/lib/blavastsky.htm blavastsky] [http://lightmyfire0214.ifrance.com/topic/staffa-per/ staffa per televisione] [http://lightmyfire0214.ifrance.com/topic/olidata-hard/ olidata hard disk] [http://krychan.ifrance.com/content/view/tieni-duro.htm tieni duro] [http://gabe95.ifrance.com/html/puledra/ puledra] [http://krychan.ifrance.com/content/view/primi-incontri.htm primi incontri] [http://sm4.ifrance.com/lib/final-fantasy/ final fantasy vii advent children in un filmato] [http://smegmacheez.ifrance.com/content/view/hotel-du/ hotel du nord - paris] [http://smegmacheez.ifrance.com/content/view/la-rosa/ la rosa dei venti] [http://joshuaw-wise.ifrance.com/img/styles/immagini-grande/ immagini grande fratello 6] [http://gajar.ifrance.com/html/eva-henger.htm eva henger videovideo porno eva henger] [http://lekusya.ifrance.com/library/html/produzione-animale/ produzione animale] [http://gajar.ifrance.com/html/porsche-carrera.htm porsche carrera s] [http://nokros.ifrance.com/data/canon-eos/ canon eos 350d 18-55] [http://mfirishka.ifrance.com/view/new/juancarlos.htm juancarlos] [http://sm4.ifrance.com/lib/cerca-la/ cerca la via di uscita] [http://squoi-oop.ifrance.com/topic/italia-ristorante/ italia ristorante] [http://alishca-st.ifrance.com/text/directory/arcade-per.htm arcade per pc] [http://krychan.ifrance.com/content/view/hotel-bolero.htm hotel bolero] [http://squoi-oop.ifrance.com/topic/rysy/ rysy] [http://zeakk.ifrance.com/resources/articles/midi-para.htm midi para teclado] {{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 02:28, 24 August 2007
fifa 2005 per gamecube geko 301 lennon ragazzi di vita pasolini libri nissan primera diesel km0 sigma 400mm ladybug ladi di manzoni alessandro videoregistratore lettore dvd fantacalcio voti gazzetta wagering dresser wheel loader adattatore usb joystick gamepad domanda di ammissione a concorso camere villasimius scorpions. acoustica gargallo donsella cafenoir nuovi driver certificati windowsxp per nvidia mitsubishi usato tennis e (altri giochi con le racchette) finanziamento fossano incasso frigorifero in the red dvd scan dual garmin gps 76 freddure macchinari per frantoi cartografia de comune di bologna the flower kings. meet the flower kings. live recording 2003 immagini pasqua she will loved deskpot genoa cartagena della segretaria ave maria di schubert anche parole foto di ludmilla radchenko rx3715 palmari dvd video recorder ufficio venezia powermust 800va pro jolly blu videos de porno quiero estar contigo paris hilto un thriller per twiggy software per codi sblocco motorola a835 kathy s song katia lel clinica villa stuard filumena ctqui skank vamos fugir le punizioni sleep assault recover my file 2 53 renault scenic 2002 cuffie audio bluetooth la stazione ferroviaria fragma toca me big city life gratis strawberry nude kaoma dj aligator dragostea din tei oranienbaum indiane diddl peluche 120 la venere dei pirati obudzisz mnie hp laser 1022 canon cartuccia compatibile pro soccer evolution 4 scatoline in livorno lady bag chat navighiamo toner xerox phaser 3450 piscina melzo www happy days it televisore al plasma 50 frigorifero beige fondi nextra vendita canoa usata moneda er cipolla suoneria il ragazzo che sorride gisela dulko ma de ra acciai srl francesca loto whirlpool jt 359 frasi per nascite legge 8 agosto n 443 hard disk relisys 19 vlado georgiev il caso raffaello concerto anastacia ed e subito sera i vini italiani codice risiko genova donne crazy climber decodage chaines numeriques import export arredamento pantaloni diesel le 26r51b samsung come raggiungere la fiera di rimini rotel amplificatori darkman volvo v40 prestige mariella nava open range alta definizione faringitis albergo 5 stella nizza nudismo fkk borsa converse kate lawler iomega masterizzatore portatile televisore decappaggio operazione poker microonde forno elettrico meinhof, carl cazzi in culo scooby-doo. i misteri doriente hot party 2003 djurado nada val finanziamenti cambializzati on line da vga a tv fotocamere hp m517 auto noleggio assago dolce gabbana gonne donna desperado el mariachi cecchinato srl asian blowjob famiglie wireless audio video yamaha xt 660 r misamis oriental jordan rudes filettatura beheading michael berg ricette per l estate fuga dall isola bosch sgs 45 canon eos-350 fouk np 55 offerte di lavoro provincia mc hafling digitale philips dect 311 kierra knightly tv al plasma da 32 dj franchino banana republic voli last minute televisore hd enrico intra lo slalom van cleef rivombrosa max co que sera mi china ct special forces passa alle tre dimensioni keith emerson la palla n. 13 cori laziali fotos de pollas krasnojarsk (territorio) caparezza concerti in lombardia levante, mar di- cavo dolby cellurari fujitsu 15 misa criolla fuego prodotti cosmetico naturali blondei blavastsky staffa per televisione olidata hard disk tieni duro puledra primi incontri final fantasy vii advent children in un filmato hotel du nord - paris la rosa dei venti immagini grande fratello 6 eva henger videovideo porno eva henger produzione animale porsche carrera s canon eos 350d 18-55 juancarlos cerca la via di uscita italia ristorante arcade per pc hotel bolero rysy midi para teclado
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"