home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume10 / logo / part01 / library / hanoi.lg < prev    next >
Encoding:
Text File  |  1987-06-23  |  190 b   |  9 lines
  1.  
  2. to hanoi :number :from :to :other
  3. if equalp :number 0 [stop]
  4. hanoi :number-1 :from :other :to
  5. print {sentence [Move disk] :number "from :from "to :to}
  6. hanoi :number-1 :other :to :from
  7. end
  8.  
  9.