Hanoi: PL/title> <style type="text/css">  </style>  </head> <body id="www-kernelthread-com">  <h1 id="sitemast"><a href="http://www.kernelthread.com"><span>kernelthread</span>.com</a></h1>  <div id="sidebar"> <h4 class="oldbl" id="sidetop">contents</h4> <div class="sublinks"> <a href="http://osxbook.com" title="Mac OS X Internals: The Book">Mac OS X Internals</a> <b>|</b> <a href="/projects/" title="Projects">Projects</a> <b>|</b> <a href="/publications/" title="Publications">Publications</a> <b>|</b> <a href="/resume/">Résumé</a> <b>|</b> </div> <h4 class="oldbl" id="sidetop">meta</h4> <div class="sublinks"> <a href="/contact/" title="Contact Amit Singh">Contact</a> <b>|</b> <a href="/legalese/" title="Legalese">Legalese</a> <b>|</b> <a href="/slashdotted/" title="Slashdotted">Slashdotted</a> <b>|</b> </div> </div> <div id="main">   <h3>PL/I</h3> <p id="paperbox"> The Towers of Hanoi as a PL/I program. </p> <p id="codebox" style="background-color: white;"> <code> *PROCESS langlvl(saa2) source; *PROCESS not('ª') or('|'); *PROCESS limits(extname(31)); hanoi:proc options(main); call dohanoi(3, 1, 3, 2); dohanoi:proc(n, f, t, u) recursive; dcl(n, f, t, u) fixed bin(31); if n > 1 then do; call dohanoi(n-1, f, u, t); call movedisk(f, t); call dohanoi(n-1, u, t, f); end; else call movedisk(f, t); end dohanoi; movedisk:proc(f, t); dcl (f, t) fixed bin(31); put skip list('move' || f, '->' || t); end movedisk; end hanoi; </code> </p> <h3>Download</h3> <a href="../src/hanoimania/hanoi.pli" title="Source: PL/I">hanoi.pli</a>  </div> <div id="footer"> <p>All contents of this site, unless otherwise noted, are ©1994-2009 <strong>Amit Singh</strong>. All Rights Reserved. <a href="/legalese/">Terms of Use</a></p> <p>Hosted at <a href="http://www.jaguarpc.com" title="JaguarPC - Jaguar Technologies, LLC">Jaguar Technologies</a></p> </div> </body> </html>