Function: mpuz-build-random-perm

mpuz-build-random-perm is a byte-compiled function defined in mpuz.el.gz.

Signature

(mpuz-build-random-perm)

Documentation

Initialize puzzle coding with a random permutation.

Source Code

;; Defined in /usr/src/emacs/lisp/play/mpuz.el.gz
(defun mpuz-build-random-perm ()
  "Initialize puzzle coding with a random permutation."
  (let ((letters (list 0 1 2 3 4 5 6 7 8 9)) ; new cons cells, because of delq
	(index 10)
	elem)
    (while letters
      (setq elem    (seq-random-elt letters)
	    letters (delq elem letters)
	    index   (1- index))
      (aset mpuz-digit-to-letter index elem)
      (aset mpuz-letter-to-digit elem index))))