Towers of Hanoi: Difference between revisions

Content added Content deleted

Inline

@@ Line 614: / Line 614: @@
 {{trans|D}}
-<lang arturo>hanoi: @(n from to via){
+<lang rebol>hanoi: function [n f dir via][
-	if n>0 {
+	if n>0 [
-		hanoi n-1 from via to
+		hanoi n-1 f via dir
-		print "Move disk " + n + " from " + from + " to " + to
+		print ["Move disk" n "from" f "to" dir]
-		hanoi n-1 via to from
+		hanoi n-1 via dir f
-	}
+	]
+]
-}
-hanoi 3 "L" "M" "R"</lang>
+hanoi 3 'L 'M 'R</lang>
 {{out}}
 <pre>Move disk 1 from L to M
 Move disk 2 from L to R
 Move disk 1 from M to R
 Move disk 3 from L to M
 Move disk 1 from R to L
 Move disk 2 from R to M
 Move disk 1 from L to M</pre>