From c5eeaf525f4a7c0d5776f560f2a0bc54429d4568 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 1 Aug 1993 20:50:07 +0000 Subject: [PATCH] (pick-random): Remove. All callers changed to use `random' instead. --- lisp/play/cookie1.el | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el index ee5521aa3b4..a7792fb32b6 100644 --- a/lisp/play/cookie1.el +++ b/lisp/play/cookie1.el @@ -30,8 +30,7 @@ ;; the NSA Trunk Trawler. ;; ;; The two entry points are `cookie' and `cookie-insert'. The helper -;; functions `pick-random' and `shuffle-vector' may be of interest to -;; programmers. +;; function `shuffle-vector' may be of interest to programmers. ;; ;; The code expects phrase files to be in one of two formats: ;; @@ -121,10 +120,6 @@ subsequent calls on the same file won't go to disk." (message endmsg) (set sym (apply 'vector result))))))) -(defun pick-random (n) - "Returns a random number from 0 to N-1 inclusive." - (% (logand 0777777 (random)) n)) - ; Thanks to Ian G Batten ; [of the University of Birmingham Computer Science Department] ; for the iterative version of this shuffle. @@ -137,7 +132,7 @@ subsequent calls on the same file won't go to disk." temp (len (length vector))) (while (< i len) - (setq j (+ i (pick-random (- len i)))) + (setq j (+ i (random (- len i)))) (setq temp (aref vector i)) (aset vector i (aref vector j)) (aset vector j temp) -- 2.11.4.GIT