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开始，所以索引需要做简单转换。