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, 32-bit UNIX doomsday version.

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

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, 32-bit UNIX doomsday version.
Display 32-ring towers that have been progressing at one move per
second since 1970-01-01 00:00:00 UTC.

Repent before ring 31 moves."
  (interactive)
  (let* ((start (time-convert nil 'integer))
	 (bits (nreverse (cl-loop repeat 32
				  for x = start then (ash x -1)
				  collect (logand x 1))))
	 (hanoi-move-period 1))
    (hanoi-internal 32 bits start)))