Rosetta Code

Towers of Hanoi: Difference between revisions

Page Discussion

Towers of Hanoi (view source)

Revision as of 08:09, 28 August 2007

8,876 bytes added ,  16 years ago
m
no edit summary
(revert spam)
mNo edit summary
Line 1:
[http://manoke.cn/topic/ponte-visconteo/ ponte visconteo di valeggio su] [http://joperan.org/data/eddie-guerrero/ eddie guerrero mp3] [http://wedner.info/content/view/vrettakos-nikiforos.htm vrettakos, nikiforos] [http://polex.com.cn/resources/articles/sommario.htm sommario] [http://wedner.info/content/view/acer-aspire.htm acer aspire 1024 ram] [http://svike.info/view/new/kit-veicolare.htm kit veicolare nokia] [http://sneck.info/data/batterie-ricaricabili/ batterie ricaricabili ni-mh 2500mah] [http://joperan.org/data/frigoriferi-da/ frigoriferi da incasso classe a] [http://svike.info/view/new/margherita-cocciante.htm margherita cocciante] [http://sneck.info/data/renault-scenic/ renault scenic iceland] [http://polex.com.cn/resources/articles/azienda-ospedaliera.htm azienda ospedaliera bolognini seriate] [http://primonona.info/content/view/la-cassa/ la cassa sbagliata] [http://klohy.info/img/styles/high-stakes.htm high stakes] [http://budget7i.info/lib/sostenitori-della/ sostenitori della gestalt] [http://sneck.info/data/cavo-dv/ cavo dv canon] [http://funkall.us/images/small/havana-nights/ havana nights] [http://klohy.info/img/styles/poesie-per.htm poesie per ragazzi] [http://soler.net.cn/data/torres.htm torres] [http://xionny.cn/topic/un-piccolo/ un piccolo gran amore] [http://budget7i.info/lib/quinault-philippe/ quinault, philippe] [http://funkall.us/images/small/olimpiadi-in/ olimpiadi in bikini] [http://polex.com.cn/resources/articles/labanotation.htm labanotation] [http://manoke.cn/topic/la-cosa/ la cosa da un altro mondo. special edition] [http://svike.info/view/new/supercar-the.htm supercar. the best of] [http://polex.com.cn/resources/articles/uomini-e.htm uomini e cieli] [http://primonona.info/content/view/torrone-di/ torrone di cioccolata] [http://xionny.cn/topic/nokia/ nokia 31] [http://soler.net.cn/data/basi-musicali.htm basi musicali gigione] [http://xionny.cn/topic/chopin-marcia/ chopin marcia funebre] [http://funkall.us/images/small/www-neopets/ www neopets com] [http://manoke.cn/topic/noleggio-automobile/ noleggio automobile cerimonia] [http://primonona.info/content/view/vaser/ vaser] [http://soler.net.cn/data/miroslav.htm miroslav] [http://soler.net.cn/data/sur.htm sur] [http://soler.net.cn/data/www-jhon.htm www jhon cena it] [http://wedner.info/content/view/fini-snc.htm fini snc] [http://wedner.info/content/view/musica-e.htm musica e cd] [http://svike.info/view/new/feste-sexy.htm feste sexy] [http://veggis.org.cn/resources/articles/estee-lauder.htm estee lauder lifting] [http://primonona.info/content/view/jasar/ jasar] [http://primonona.info/content/view/godinama/ godinama] [http://polex.com.cn/resources/articles/biffi-luce.htm biffi luce srl] [http://veggis.org.cn/resources/articles/inps-gubbio.htm inps gubbio] [http://funkall.us/images/small/eva-ferrari/ eva ferrari] [http://wedner.info/content/view/giochi-strategia.htm giochi strategia pc] [http://xionny.cn/topic/black-decker/ black decker vl2040] [http://soler.net.cn/data/l-.htm l 300 fax canon] [http://wedner.info/content/view/margilan.htm margilan] [http://budget7i.info/lib/norwood-massachusetts/ norwood (massachusetts)] [http://veggis.org.cn/resources/articles/techno-.htm techno 2004 dj ro 380 ni] [http://budget7i.info/lib/canon-eosd/ canon eos20d] [http://xionny.cn/topic/rcmp-ca/ rcmp ca] [http://polex.com.cn/resources/articles/ferrari-wlmi.htm ferrari 4002wlmi] [http://soler.net.cn/data/scambi-di.htm scambi di coppia annunci] [http://wedner.info/content/view/poltrona-zen.htm poltrona zen] [http://funkall.us/images/small/asus-pda/ asus pda] [http://svike.info/view/new/eisner.htm eisner] [http://manoke.cn/topic/morenas/ morenas] [http://wedner.info/content/view/dukes-de.htm dukes de hazzard] [http://veggis.org.cn/resources/articles/epson-stylus.htm epson stylus photo rx] [http://budget7i.info/lib/panda-x/ panda 4x4 nuova] [http://budget7i.info/lib/nomo/ nomo] [http://xionny.cn/topic/on-my/ on my kness 411] [http://joperan.org/data/deh/ deh 4700] [http://joperan.org/data/naked-news/ naked news in lingua italiana] [http://xionny.cn/topic/reptilia-strokes/ reptilia strokes] [http://sneck.info/data/beavis-and/ beavis and butthead] [http://budget7i.info/lib/bluetooth-sd/ bluetooth sd toshiba] [http://wedner.info/content/view/ariston-mbaa.htm ariston mbaa] [http://xionny.cn/topic/prefabbricato-legno/ prefabbricato legno] [http://xionny.cn/topic/italianista/ italianista] [http://funkall.us/images/small/slipknot-disasterpieces/ slipknot. disasterpieces] [http://manoke.cn/topic/dirisio-calma/ dirisio calma] [http://klohy.info/img/styles/stacchetti-giorgia.htm stacchetti giorgia palmas] [http://polex.com.cn/resources/articles/piantine-vie.htm piantine vie bologna] [http://budget7i.info/lib/dvd-marrakech/ dvd marrakech express] [http://funkall.us/images/small/la-dottoressa/ la dottoressa ci sta con il colonnello] [http://xionny.cn/topic/pasquina/ pasquina] [http://primonona.info/content/view/i-sette/ i sette cazzi] [http://primonona.info/content/view/terrorismo-letteratura/ terrorismo letteratura italia] [http://veggis.org.cn/resources/articles/one-shot.htm one shot 80 titoli] [http://veggis.org.cn/resources/articles/kawasaki-zx.htm kawasaki zx rr] [http://sneck.info/data/residence-rimini/ residence rimini] [http://veggis.org.cn/resources/articles/server-hp.htm server hp proliant ml150 ultra320] [http://klohy.info/img/styles/logar.htm logar] [http://funkall.us/images/small/crack-dj/ crack dj mixstation 2] [http://funkall.us/images/small/mature-boobs/ mature boobs] [http://sneck.info/data/lettori-trans/ lettori trans flash] [http://budget7i.info/lib/monroe-the/ monroe the complete] [http://svike.info/view/new/fai-da.htm fai da te per bimbi] [http://wedner.info/content/view/prima-prova.htm prima prova maturia 2003] [http://sneck.info/data/zalman-per/ zalman per cpu] [http://budget7i.info/lib/fanky-g/ fanky g anabela] [http://funkall.us/images/small/behringer-kt/ behringer kt108] [http://svike.info/view/new/benq.htm benq 522452] [http://sneck.info/data/ripetitore-segnale/ ripetitore segnale video accessori audio] [http://veggis.org.cn/resources/articles/creme-spalmabili.htm creme spalmabili] [http://klohy.info/img/styles/nuova-citroen.htm nuova citroen diesel auto nuove] [http://klohy.info/img/styles/canzone-california.htm canzone california dei phantom planet] [http://primonona.info/content/view/internet-hosting/ internet hosting] [http://manoke.cn/topic/samsung-sr/ samsung sr l 679 evs] [http://manoke.cn/topic/salute-fisica/ salute fisica] [http://sneck.info/data/film-da/ film da vedere a natale] [http://primonona.info/content/view/video-poker/ video poker dowloads] [http://manoke.cn/topic/spam-antivirus/ spam antivirus liberi] [http://polex.com.cn/resources/articles/l-esercito.htm l esercito di alessandro nella tempesta] [http://sneck.info/data/biglietti-aerei/ biglietti aerei milano los angeles] [http://sneck.info/data/sottomarina-di/ sottomarina di chioggia] [http://manoke.cn/topic/adattatore-lettore/ adattatore lettore cd autoradio] [http://svike.info/view/new/iovine-patrizia.htm iovine patrizia] [http://soler.net.cn/data/stampante-laser.htm stampante laser canon colori] [http://wedner.info/content/view/lettore-usb.htm lettore usb per sim card] [http://veggis.org.cn/resources/articles/wagner-marcia.htm wagner marcia nuziale] [http://joperan.org/data/ramundo-maria/ ramundo maria grazia] [http://primonona.info/content/view/versione-greco/ versione greco] [http://polex.com.cn/resources/articles/tiziano-telecom.htm tiziano telecom fax] [http://funkall.us/images/small/la-giacca/ la giacca uomo] [http://primonona.info/content/view/buio-oltre/ buio oltre il sole] [http://polex.com.cn/resources/articles/oceaniche.htm oceaniche] [http://polex.com.cn/resources/articles/la-diagnosi.htm la diagnosi delle stenosi dell esofago] [http://funkall.us/images/small/navigatori-satellitari/ navigatori satellitari per auto] [http://soler.net.cn/data/where-are.htm where are we rinning] [http://wedner.info/content/view/climatizzatore-condizionatore.htm climatizzatore condizionatore 9000 btu] [http://polex.com.cn/resources/articles/aldo-giovanni.htm aldo giovanni e giacomo chiedimi se] [http://xionny.cn/topic/olympus-fotocamera/ olympus fotocamera digitale 5 0] [http://veggis.org.cn/resources/articles/foppapedretti-stiro.htm foppapedretti stiro] [http://primonona.info/content/view/roger-taylor/ roger taylor] [http://soler.net.cn/data/merletto.htm merletto] [http://budget7i.info/lib/seximages/ seximages] [http://sneck.info/data/playstation-/ playstation 2 e blu-ray insieme] [http://primonona.info/content/view/noirdesire/ noirdesire] [http://polex.com.cn/resources/articles/mutazioni-generali.htm mutazioni generali] [http://xionny.cn/topic/bitter/ bitter] [http://wedner.info/content/view/claudia-cardinali.htm claudia cardinali] [http://budget7i.info/lib/dvd-don/ dvd don camillo] [http://primonona.info/content/view/gamba-ingessata/ gamba ingessata] [http://veggis.org.cn/resources/articles/paulinarubio.htm paulinarubio] [http://primonona.info/content/view/politica/ politica] [http://veggis.org.cn/resources/articles/mp-player.htm mp3 player 512] [http://xionny.cn/topic/gps-palmare/ gps palmare acer] [http://svike.info/view/new/let-s.htm let s get started] [http://klohy.info/img/styles/feeling-good.htm feeling good] [http://funkall.us/images/small/hard-disck/ hard disck 80gb] [http://funkall.us/images/small/set-lettino/ set lettino] [http://klohy.info/img/styles/lima-spa.htm lima spa vicenza] [http://primonona.info/content/view/brosher/ brosher] [http://sneck.info/data/cradle-acer/ cradle acer] [http://xionny.cn/topic/test-fotocamera/ test fotocamera digitali] [http://primonona.info/content/view/lwnn-samsung/ lw-22n23n samsung] [http://veggis.org.cn/resources/articles/canzone-y.htm canzone y m c a] [http://joperan.org/data/fogo-na/ fogo na saia] [http://joperan.org/data/siemens-s/ siemens s645 gigaset] [http://budget7i.info/lib/samsung-vcr/ samsung vcr] [http://joperan.org/data/froggie/ froggie] [http://wedner.info/content/view/forni-e.htm forni e camini industriali] [http://wedner.info/content/view/canzone-del.htm canzone del sole] [http://svike.info/view/new/nuova-publicita.htm nuova publicita adidas] [http://manoke.cn/topic/virgilo/ virgilo] [http://soler.net.cn/data/mel-lisboa.htm mel lisboa playboy] [http://wedner.info/content/view/musica-argentina.htm musica argentina] [http://joperan.org/data/mantua/ mantua 1 8] [http://sneck.info/data/zyxel-h/ zyxel 650h] [http://xionny.cn/topic/microonde-combinato/ microonde combinato vapore] [http://svike.info/view/new/jme.htm j2me] [http://funkall.us/images/small/vacanza-lavoro/ vacanza lavoro] [http://primonona.info/content/view/raul-gonzales/ raul gonzales nudo] [http://funkall.us/images/small/www-com/ www com latinchat] [http://primonona.info/content/view/supporto-angolo/ supporto angolo] [http://funkall.us/images/small/hit-mania/ hit mania dance 2000 2001] [http://funkall.us/images/small/antonio-floro/ antonio floro flores] [http://primonona.info/content/view/aquolina-mousse/ aquolina mousse] [http://klohy.info/img/styles/conference-calling.htm conference calling] [http://sneck.info/data/mcquail-denis/ mcquail denis] [http://sneck.info/data/mv-/ mv 750 canon] [http://manoke.cn/topic/rosh-zohar/ rosh zohar] [http://wedner.info/content/view/inno-brigata.htm inno brigata sassari] [http://funkall.us/images/small/computer-desktop/ computer desktop] [http://svike.info/view/new/albergo-economico.htm albergo economico avignone] [http://manoke.cn/topic/www-netpia/ www netpia com] [http://klohy.info/img/styles/insegnare-matematica.htm insegnare matematica alla scuola media] [http://sneck.info/data/orario-treno/ orario treno eurostar per firenze] [http://svike.info/view/new/comel.htm comel] [http://wedner.info/content/view/barbara-bobulova.htm barbara bobulova] [http://sneck.info/data/ricevitori-satellitari/ ricevitori satellitari 12v] [http://polex.com.cn/resources/articles/web-cam.htm web cam shop] [http://xionny.cn/topic/cartina-geografica/ cartina geografica di pavia] [http://budget7i.info/lib/manele-noiembrie/ manele noiembrie 2004] [http://klohy.info/img/styles/motore-pneumatico.htm motore pneumatico] [http://manoke.cn/topic/ragazze-aquila/ ragazze aquila] [http://xionny.cn/topic/manihi/ manihi] [http://wedner.info/content/view/kia-sportage.htm kia sportage 2000] [http://klohy.info/img/styles/hp-gps.htm hp gps palmare integrato] [http://klohy.info/img/styles/storia-sulla.htm storia sulla danza] [http://polex.com.cn/resources/articles/nuova-volkswagen.htm nuova volkswagen golf v benzina auto] [http://funkall.us/images/small/abbigliamento-/ abbigliamento - accessori e complementi] [http://funkall.us/images/small/scarpe-da/ scarpe da running] [http://xionny.cn/topic/bush-in/ bush in citta] [http://klohy.info/img/styles/i-girovaghi.htm i girovaghi] [http://funkall.us/images/small/numero-diciassette/ numero diciassette] [http://veggis.org.cn/resources/articles/prime-stime.htm prime stime di vendita per la psp americana] {{task}}
{{task}}
 
In this task, the goal is to solve the Towers of Hanoi problem with recursivity.
Line 13:
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 " &
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
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/14060"