home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / m4-1.1-src.lha / src / amiga / m4-1.1 / examples / hanoi.m4 < prev    next >
Encoding:
sendmail m4  |  1991-01-30  |  374 b   |  16 lines
  1. divert(-1)
  2.  
  3. # move(from, to)
  4. define(`move', `Move one disk from `$1' to `$2'.
  5. ')
  6.  
  7. # _hanoi (cnt, from, to, aux)
  8. define(`_hanoi', `ifelse(eval(`$1'<=1), 1, `move($2, $3)',
  9. `_hanoi(decr($1), $2, $4, $3)move($2, $3)_hanoi(decr($1), $4, $3, $2)')')
  10.  
  11. # hanoi (cnt)
  12. define(`hanoi', `_hanoi(`$1', source, destination, auxilliary)')
  13.  
  14. # traceon(`move', `_hanoi', `decr')
  15. divert`'dnl
  16.