home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / aa_m68k_Only / NXLogo / NXLogoLibrary / hanoi.lg < prev    next >
Encoding:
Text File  |  1992-07-09  |  189 b   |  8 lines
  1. to hanoi :number :from :to :other
  2. if equalp :number 0 [stop]
  3. hanoi :number-1 :from :other :to
  4. print {sentence [Move disk] :number "from :from "to :to}
  5. hanoi :number-1 :other :to :from
  6. end
  7.  
  8.