diff options
Diffstat (limited to 'doc/examples/hanoi.m4')
-rw-r--r-- | doc/examples/hanoi.m4 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/doc/examples/hanoi.m4 b/doc/examples/hanoi.m4 new file mode 100644 index 00000000..32fd8a41 --- /dev/null +++ b/doc/examples/hanoi.m4 @@ -0,0 +1,17 @@ +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 + +hanoi(3) |