S-99-23


(define (random-select-no xs n)

  (if (or (null? xs) (eq? n 0))
    '()
    (let ((x (random (length xs))))
      (cons (list-ref xs x) (random-select-no (remove-at xs x) (- n 1))))))