Towers of Hanoi: Difference between revisions

Towers of Hanoi (view source)

Revision as of 13:03, 9 May 2024

3,800 bytes added , 19 days ago

m

→‎{{header|JavaScript}}: Tidied.

Hout

9,655

edits

Revision as of 22:00, 10 November 2023 (view source) imported>Lacika7 No edit summary ← Older edit		Revision as of 13:03, 9 May 2024 (view source) Hout (talk \| contribs) m (→‎{{header\|JavaScript}}: Tidied.) Newer edit →
(8 intermediate revisions by 6 users not shown)
Line 10: {{trans\|Python}} <syntaxhighlight lang="11l">F hanoi(ndisks, startPeg = 1, endPeg = 3) -> NVoid I ndisks hanoi(ndisks - 1, startPeg, 6 - startPeg - endPeg) Line 419: </syntaxhighlight> =={{header\|ABC}}== <syntaxhighlight lang="ABC">HOW TO MOVE n DISKS FROM src VIA via TO dest: IF n>0: MOVE n-1 DISKS FROM src VIA dest TO via WRITE "Move disk from pole", src, "to pole", dest/ MOVE n-1 DISKS FROM via VIA dest TO src MOVE 4 DISKS FROM 1 VIA 2 TO 3</syntaxhighlight> {{out}} <pre>Move disk from pole 1 to pole 2 Move disk from pole 1 to pole 3 Move disk from pole 2 to pole 1 Move disk from pole 1 to pole 2 Move disk from pole 3 to pole 2 Move disk from pole 3 to pole 1 Move disk from pole 2 to pole 3 Move disk from pole 1 to pole 3 Move disk from pole 2 to pole 1 Move disk from pole 2 to pole 3 Move disk from pole 1 to pole 2 Move disk from pole 2 to pole 1 Move disk from pole 3 to pole 1 Move disk from pole 3 to pole 2 Move disk from pole 1 to pole 3</pre> =={{header\|Action!}}== Line 1,542 ⟶ 1,567: < ]</syntaxhighlight> =={{header\|Bruijn}}== {{trans\|Python}} <syntaxhighlight lang="bruijn"> :import std/Combinator . :import std/Number . :import std/String . hanoi y [[[[=?2 empty go]]]] go [(4 --3 2 0) ++ str ++ (4 --3 0 1)] ((+6) - 1 - 0) str "Move " ++ disk ++ " from " ++ source ++ " to " ++ destination ++ "\n" disk number→string 3 source number→string 2 destination number→string 1 </syntaxhighlight> =={{header\|C}}== Line 3,539 ⟶ 3,579: const go = hanoi(n - 1); return ~~Boolean(~~n~~) ? [~~ ~~...go(a,~~? ~~c, b),~~[ ...[go(a, c, b), [a, b], ] ...go(c, b, a) ~~...go(c, b, a)~~] ] : []; }; Line 3,551 ⟶ 3,591: // ---------------------- TEST ----------------------- return hanoi(3)("left", "right", "mid") .map(d => `${d[0]} -> ${d[1]}`) .join("\n"); })();</syntaxhighlight> {{Out}} Line 6,058 ⟶ 6,098: left -> middle right -> middle</pre> =={{header\|Refal}}== <syntaxhighlight lang="refal">$ENTRY Go { = <Move 4 1 2 3>; }; Move { 0 e.X = ; s.N s.Src s.Via s.Dest, <- s.N 1>: s.Next = <Move s.Next s.Src s.Dest s.Via> <Prout "Move disk from pole" s.Src "to pole" s.Dest> <Move s.Next s.Via s.Src s.Dest>; };</syntaxhighlight> {{out}} <pre>Move disk from pole 1 to pole 2 Move disk from pole 1 to pole 3 Move disk from pole 2 to pole 3 Move disk from pole 1 to pole 2 Move disk from pole 3 to pole 1 Move disk from pole 3 to pole 2 Move disk from pole 1 to pole 2 Move disk from pole 1 to pole 3 Move disk from pole 2 to pole 3 Move disk from pole 2 to pole 1 Move disk from pole 3 to pole 1 Move disk from pole 2 to pole 3 Move disk from pole 1 to pole 2 Move disk from pole 1 to pole 3 Move disk from pole 2 to pole 3</pre> =={{header\|Retro}}== Line 6,981 ⟶ 7,050: EndIf Return</syntaxhighlight> =={{header\|Uiua}}== {{works with\|Uiua\|0.10.0}} <syntaxhighlight lang="bash"> F ← \|1.0 ( ⟨ &p ⊏[1 2] &pf "Move disc [from to]: " \| F⍜(⊡0\|-1)⍜(⊏[2 3]\|⇌). F⍜(⊡0\|1◌). F⍜(⊡0\|-1)⍜(⊏[1 3]\|⇌) ⟩≠1⊢. ) F [4 1 2 3] </syntaxhighlight> {{out}} <pre> Move disc [from to]: [1 3] Move disc [from to]: [1 2] Move disc [from to]: [3 2] Move disc [from to]: [1 3] Move disc [from to]: [2 1] Move disc [from to]: [2 3] Move disc [from to]: [1 3] Move disc [from to]: [1 2] Move disc [from to]: [3 2] Move disc [from to]: [3 1] Move disc [from to]: [2 1] Move disc [from to]: [3 2] Move disc [from to]: [1 3] Move disc [from to]: [1 2] Move disc [from to]: [3 2] </pre> =={{header\|UNIX Shell}}== Line 7,055 ⟶ 7,156: start -> end middle -> end</pre> =={{header\|Uxntal}}== <syntaxhighlight lang="Uxntal">\|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 \|0100 ( -> ) #0102 [ LIT2 03 &count 04 ] hanoi POP2 POP2 BRK @hanoi ( from spare to count -: from spare to count ) ( moving 0 disks is no-op ) DUP ?{ JMP2r } ( move disks 1..count-1 to the spare peg ) #01 SUB ROT SWP hanoi ( from to spare count-1 ) ( print the current move ) ;dict/move print-str INCk #30 ORA .Console/write DEO STH2 ;dict/from print-str OVR #30 ORA .Console/write DEO ;dict/to print-str DUP #30 ORA .Console/write DEO [ LIT2 0a -Console/write ] DEO STH2r ( move disks 1..count-1 from the spare peg to the goal peg ) STH ROT ROT STHr hanoi ( restore original parameters for convenient recursion ) STH2 SWP STH2r INC JMP2r @print-str &loop LDAk .Console/write DEO INC2 LDAk ?&loop POP2 JMP2r @dict &move "Move 20 "disk 2000 &from 20 "from 20 "pole 2000 &to 20 "to 20 "pole 2000</syntaxhighlight> =={{header\|VBScript}}== Line 7,269 ⟶ 7,415: =={{header\|Wren}}== {{trans\|Kotlin}} <syntaxhighlight lang="~~ecmascript~~wren">class Hanoi { construct new(disks) { _moves = 0