Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
hanoi(N) :- move( N, left, mid, right). move( 1, A, _ , C) :- inform(A,C), !. move( N, A, B, C) :- N1 is N - 1, move( N1, A, C, B), inform( A, C), move( N1, B, A, C). inform(Loc1, Loc2) :- nl, format("~w~w~w~w", ["Disk c ", Loc1, " -> ", Loc2]).