home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / CONTRIB / LISP / HANOI.L < prev    next >
Lisp/Scheme  |  1994-10-25  |  397b  |  25 lines
  1. { Towers of Hanoi - gri 12 Aug 1994 }
  2.  
  3. (setq print
  4.    (lambda (x)
  5.       (write x) (writeLn)))
  6.  
  7. (setq move
  8.    (lambda (from to)
  9.       (print (cons from (cons to ())))))
  10.  
  11.  
  12. (setq hanoi
  13.    (lambda (from over to n)
  14.       (cond
  15.          ((> n 0)
  16.             (hanoi from to over (- n 1))
  17.             (move from to)
  18.             (hanoi over from to (- n 1))
  19.          ))))
  20.  
  21.  
  22. { Example:
  23.  
  24. (hanoi 'a 'b 'c 5)
  25. }