smeghead #2289(2007/08/17 16:24 GMT) [ Common Lisp ] Rating0/0=0.00
(print (bingo 10)) => (2 4 8 10 6 7 5 9 3 1)
1 2 3 4 5 6 7 8 9
(defun bingo (n) (loop repeat n for rand = (loop (let* ((*random-state* (make-random-state t)) (rand (1+ (random n)))) (if (not (member rand lst)) (return rand)))) collect rand into lst finally (return lst)))
Rating0/0=0.00-0+
[ reply ]
smeghead
#2289()
[
Common Lisp
]
Rating0/0=0.00
(defun bingo (n) (loop repeat n for rand = (loop (let* ((*random-state* (make-random-state t)) (rand (1+ (random n)))) (if (not (member rand lst)) (return rand)))) collect rand into lst finally (return lst)))Rating0/0=0.00-0+
[ reply ]