[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/mpuz.el,v
From: |
David Kastrup |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/mpuz.el,v |
Date: |
Sun, 04 Feb 2007 17:29:52 +0000 |
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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/mpuz.el,v,
David Kastrup <=