Function: hanoi-unix

hanoi-unix is an autoloaded, interactive and byte-compiled function defined in hanoi.el.gz.

Signature

(hanoi-unix)

Documentation

Towers of Hanoi, UNIX doomsday version.

Displays 32-ring towers that have been progressing at one move per second since 1970-01-01 00:00:00 GMT.

Repent before ring 31 moves.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/play/hanoi.el.gz
;;;###autoload
(defun hanoi-unix ()
  "Towers of Hanoi, UNIX doomsday version.
Displays 32-ring towers that have been progressing at one move per
second since 1970-01-01 00:00:00 GMT.

Repent before ring 31 moves."
  (interactive)
  (let* ((start (ftruncate (float-time)))
	 (bits (cl-loop repeat 32
                        for x = (/ start (expt 2.0 31)) then (* x 2.0)
                        collect (truncate (mod x 2.0))))
	 (hanoi-move-period 1.0))
    (hanoi-internal 32 bits start)))