🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #197

Re: Towers of Hanoi

#197
From: Masahiro Hamada
Date: Tue, 04 Nov 1997 00:00
21 lines
962 bytes

 $B0J2<$,:F5"K!$NNc$H$7$FM-L>$J%O%N%$$NEc$N%W%m%0%i%`$G$9!#(J
$B$3$l$r(J Hanoi(0, 'a', 'b', 'c') $B$H$7$F5/F0$9$l$P(JOK$B$G$9!#(JN$B$O1_HW(J
$B$N?t$rI=$7$F$$$^$9!#(J

procedure Hanoi(Depth: Integer; x, y, tmp: Char);
begin
  if Depth < N then
  begin
    Hanoi(Depth + 1, x, tmp, y);  
    WriteLn(N - Depth, '$BHVL\$NHD$r(J ', x, '$B$+$i(J', y, '$B$X0\F0(J');
    Hanoi(Depth + 1, tmp, y, x); 
  end;
end;

 $B:F5"$r;H$o$J$$J}K!$b$"$j$^$9!#(J

--
$B9-EgBg3X(J $B650i3XIt(J
$BIMED(J $B>;9((J   hamada@hiroshima-cdas.or.jp
Technical Details
Message-ID: <63njn6$hkt@ns1.hiroshima-cdas.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <63ldbo$94p@yama.mcc.ac.uk>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,955c674a308a44dd
X-Google-Attributes: gidff90a,public
From: "Masahiro Hamada" <hamada@hiroshima-cdas.or.jp>
Subject: Re: Towers of Hanoi
Date: 1997/11/04
Message-ID: <63njn6$hkt@ns1.hiroshima-cdas.or.jp>
X-Deja-AN: 287055368
References: <63ldbo$94p@yama.mcc.ac.uk>
Organization: hiroshima-cdas
Newsgroups: fj.lang.pascal