Parent Directory | Revision Log | Patch
revision 1.8 by jpb, Tue Nov 30 17:02:55 2004 UTC | revision 1.9 by jpb, Thu Dec 16 22:56:08 2004 UTC | |
---|---|---|
# | Line 601 | Line 601 |
601 | ;;; Shuffling algorithm from Numerical Recipes, section 7.1. | ;;; Shuffling algorithm from Numerical Recipes, section 7.1. |
602 | (defun math-random-digit () | (defun math-random-digit () |
603 | (let (i math-random-last) | (let (i math-random-last) |
604 | (or (eq var-RandSeed math-last-RandSeed) | (or (and var-RandSeed (eq var-RandSeed math-last-RandSeed)) |
605 | (math-init-random-base)) | (math-init-random-base)) |
606 | (or math-random-cache | (or math-random-cache |
607 | (progn | (progn |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |