P23 (**) Extract a given number of randomly selected elements from a list.

问题描述

The selected items shall be returned in a list.

sash> (rnd-select '(a b c d e f g h) 3)
   -> (e d a)

Hint: Use the built-in random number generator and the result of problem P20.

解法

(import (srfi 27))

(define rnd-select
  (lambda (ls n)
    (let f ([s ls] [n n])
      (cond
       [(zero? n) '()]
       [else (let ([i (random-integer (length s))]) (cons (list-ref s i) (f (remove-at s (+ i 1)) (- n 1))))]))))                 

需要说明几点：
- R7RS没有自带随机数的函数，这里使用了SRFI-27中的random-integer n产生[0,n)间的随机整数；
- 使用了P20定义的remove-at函数，该函数指定的列表索引从1开始，而list-ref指定的列表索引从0开始，所以索引需要做简单转换。