procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(pick-random): Remove.

Browse source 
All callers changed to use `random' instead.
This commit is contained in:
Paul Eggert 1993-08-01 20:50:07 +00:00
parent 82305cbd4d
commit c5eeaf525f
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/play/cookie1.el
View file

@ -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 <BattenIG@CS.BHAM.AC.UK>
; [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)