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))))))