106 |
;;; |
;;; |
107 |
;;;###autoload |
;;;###autoload |
108 |
(defun hanoi (nrings) |
(defun hanoi (nrings) |
109 |
"Towers of Hanoi diversion. Use NRINGS rings." |
"Towers of Hanoi diversion. Use NRINGS rings." |
110 |
(interactive |
(interactive |
111 |
(list (if (null current-prefix-arg) |
(list (if (null current-prefix-arg) |
112 |
3 |
3 |
132 |
|
|
133 |
;;;###autoload |
;;;###autoload |
134 |
(defun hanoi-unix-64 () |
(defun hanoi-unix-64 () |
135 |
"Like hanoi-unix, but pretend to have a 64-bit clock. |
"Like hanoi-unix, but pretend to have a 64-bit clock. |
136 |
This is, necessarily (as of emacs 20.3), a crock. When the |
This is, necessarily (as of emacs 20.3), a crock. When the |
137 |
current-time interface is made s2G-compliant, hanoi.el will need |
current-time interface is made s2G-compliant, hanoi.el will need |
138 |
to be updated." |
to be updated." |