gistfile1.lisp

;; get some random elements from a list
;; i know it's dumb

(defparameter *data* '(192 123 34 23 67 3 45 342))

(defun get-and-remove ()
  (let ((one (nth (random (length *data*)) *data*)))
    (setf *data* (remove one *data*))
    one))

(defun getrnd (n)
  (if (<= n (length *data*))
      (loop for x from 1 to n collect (get-and-remove))))