Function: hanoi-unix-64

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

Signature

(hanoi-unix-64)

Documentation

Like hanoi-unix, but pretend to have a 64-bit clock.

This is, necessarily (as of Emacs 20.3), a crock. When the current-time interface is made s2G-compliant, hanoi.el will need to be updated.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/play/hanoi.el.gz
;;;###autoload
(defun hanoi-unix-64 ()
  "Like `hanoi-unix', but pretend to have a 64-bit clock.
This is, necessarily (as of Emacs 20.3), a crock.  When the
`current-time' interface is made s2G-compliant, hanoi.el will need
to be updated."
  (interactive)
  (let* ((start (ftruncate (float-time)))
	 (bits (cl-loop repeat 64
                        for x = (/ start (expt 2.0 63)) then (* x 2.0)
                        collect (truncate (mod x 2.0))))
	 (hanoi-move-period 1.0))
    (hanoi-internal 64 bits start)))