[Emacs-diffs] Changes to emacs/lisp/play/mpuz.el,v

[David Kastrup]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     David Kastrup <dak>     07/02/04 17:29:50

Index: play/mpuz.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/mpuz.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- play/mpuz.el        21 Jan 2007 03:05:07 -0000      1.35
+++ play/mpuz.el        4 Feb 2007 17:29:49 -0000       1.36
@@ -262,8 +262,9 @@
   (fillarray mpuz-board nil)           ; erase the board
   ;; A,B,C,D & E, are the five rows of our multiplication.
   ;; Choose random values, discarding cases with leading zeros in C or D.
-  (let* ((A (+ 112 (random 888)))
-        (min (1+ (/ 1000 A)))
+  (let* ((A (if mpuz-allow-double-multiplicator (+ 112 (random 888))
+             (+ 125 (random 875))))
+        (min (1+ (/ 999 A)))
         (B1 (+ min (random (- 10 min))))
         B2 C D E)
     (while (if (= B1 (setq B2 (+ min (random (- 10 min)))))