home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / doslogo / lib / hanoi.lg < prev    next >
Encoding:
Text File  |  1990-06-11  |  1.2 KB  |  54 lines
  1. to hanoi :number 
  2. !
  3. ! Towers of Hanoi
  4. ! Meyer A. Billmers
  5. ! November, 1983
  6. !
  7. ! This procedure plays a graphic version of the Towers of Hanoi puzzle
  8. ! The argument is the number of disks in the configuration.
  9. !
  10. ! c.f. putdisk, towercnt,towerset, hanoihlpr
  11. ! 
  12. local "from
  13. local "to
  14. local "other
  15. local "datfil
  16. make "datfil openw "hanoi.dat
  17. fileprint :datfil (sentence [Hanoi of ] :number [towers Started at: ] time)
  18. ! to change the starting and ending needles, change the next three assignments
  19. make "from 1
  20. make "to 3
  21. make "other 2
  22. cs
  23. ht
  24. ! first we draw the table and the golden needles
  25. pencolor 2
  26. pu
  27. setxy "-350 "-100
  28. pd
  29. setxy 350 "-100
  30. pu
  31. setx -240
  32. pd
  33. fd 250
  34. pu
  35. setxy "-15 "-100
  36. pd
  37. fd 250
  38. pu
  39. setxy 210 "-100
  40. pd
  41. fd 250
  42. make "tower1 0
  43. make "tower2 0
  44. make "tower3 0
  45. ! draw the initial stack of disks. note that putdisk draws the 
  46. ! "fixed up" towers.
  47. repeat :number [putdisk :from :number - repcount + 1 "final; \
  48.   if :from = 1 [make "tower1 :tower1 + 1] \
  49.     [if :from = 2 [make "tower2 :tower2 + 1] [make "tower3 :tower3 + 1]]]
  50. hanoihlpr :number :from :to :other
  51. fileprint :datfil (sentence [Hanoi Ended at: ] time)
  52. close :datfil
  53. end
  54.