diff options
Diffstat (limited to 'examples/hanoi.m4')
| -rw-r--r-- | examples/hanoi.m4 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/examples/hanoi.m4 b/examples/hanoi.m4 new file mode 100644 index 0000000..d290866 --- /dev/null +++ b/examples/hanoi.m4 @@ -0,0 +1,15 @@ +divert(-1) + +# move(from, to) +define(`move', `Move one disk from `$1' to `$2'. +') + +# _hanoi (cnt, from, to, aux) +define(`_hanoi', `ifelse(eval(`$1'<=1), 1, `move($2, $3)', +`$0(decr($1), $2, $4, $3)move($2, $3)$0(decr($1), $4, $3, $2)')') + +# hanoi (cnt) +define(`hanoi', `_$0(`$1', source, destination, auxilliary)') + +# traceon(`move', `_hanoi', `decr') +divert`'dnl |