Function: hanoi-0

hanoi-0 is a byte-compiled function defined in hanoi.el.gz.

Signature

(hanoi-0 RINGS FROM TO WORK START-TIME)

Source Code

;; Defined in /usr/src/emacs/lisp/play/hanoi.el.gz
;;; Functions with a start-time argument (hanoi-0, hanoi-n, and
;;; hanoi-move-ring) start working at start-time and return the ending
;;; time.  If hanoi-move-period is nil, start-time is ignored and the
;;; return value is junk.

;;;
;;; hanoi-0 - work horse of hanoi
(defun hanoi-0 (rings from to work start-time)
  (if (null rings)
      start-time
    (hanoi-0 (cdr rings) work to from
	     (hanoi-move-ring (car rings) from to
			      (hanoi-0 (cdr rings) from work to start-time)))))