Towers of Hanoi: Difference between revisions

Towers of Hanoi (view source)

Revision as of 19:10, 6 April 2024

3,402 bytes added , 1 month ago

Added Uiua solution

Midaz

69

edits

Revision as of 22:00, 10 November 2023 (view source) imported>Lacika7 No edit summary ← Older edit		Revision as of 19:10, 6 April 2024 (view source) Midaz (talk \| contribs) (Added Uiua solution) Newer edit →
(4 intermediate revisions by 3 users not shown)
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 6,058 ⟶ 6,083: 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,035: 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,141: 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,400: =={{header\|Wren}}== {{trans\|Kotlin}} <syntaxhighlight lang="~~ecmascript~~wren">class Hanoi { construct new(disks) { _moves = 0