Source

language-learning-apps / elisp / hanoi.el

Full commit
1
2
3
4
5
6
(defun han (from to aux num)
  (if (= num 1)
      (message "move from %s to %s" from to)
    (han from aux to (- num 1))
    (message "move from %s to %s" from to)
    (han aux to from (- num 1))))