%***************************************************************%
%* Die Türme von Hanoi Lizenz: GPL *%
%* *%
%* (c) 2002 Roland Illig <1illig@informatik.uni-hamburg.de> *%
%***************************************************************%
/bewege {
% Bewegt n Scheiben von Turm a nach Turm c und benutzt als Zwi-
% schenspeicher Turm b.
4 dict begin
/n exch def
/c exch def
/b exch def
/a exch def
n 1 eq {
currentpoint
(Lege die oberste Scheibe von Turm ) show
a show
( auf Turm ) show
c show
(.) show
moveto
0 -12 rmoveto
}
{
a c b n 1 sub bewege
a b c 1 bewege
b a c n 1 sub bewege
} ifelse
end
} def
/Palatino findfont 10 scalefont setfont
72 841 72 sub moveto
(a) (b) (c) 5 bewege
showpage save restore
| 