@@ Linia 1: / Linia 1: @@
+====== Hanoi ======
+{{tag>problem_solving}}
+===== Description =====
+Program solve hanoi towers problem
+{{:prolog:pllib:hanoi.png|}}
+**Source**:  PrologTutorial	(on-line tutorial
+===== Download =====
+Program source code: {{hanoi.pl}}
+===== Listing =====
+<code prolog>
+move(1,X,Y,_) :-
+    write('Move top disk from '),
+    write(X),
+    write(' to '),
+    write(Y),
+    nl.
+move(N,X,Y,Z) :-
+    N>1,
+    M is N-1,
+    move(M,X,Z,Y),
+    move(1,X,Y,_),
+    move(M,Z,Y,X).
+% ?- move(3,left,right,center).</code>
+===== Comments =====

pl/prolog/pllib/hanoi.txt · ostatnio zmienione: 2019/06/27 15:50 (edycja zewnętrzna)

AIwiki

Menu