Rosetta Code

Knuth's algorithm S: Difference between revisions

Page Discussion

Knuth's algorithm S (view source)

Revision as of 21:54, 22 October 2011

6 bytes removed ,  12 years ago
m
→‎{{header|Common Lisp}}
Line 29:
(defun make-selector (n)
(let ((i 0) res)
#'(lambda (&optional (x nil x-p))
(if (and x-p (< (random (incf i)) n))
(if (< (length res) n)
(push x res)
(setf (elt res (random n)) x)))
res)))
 
;;; test
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/203043"