问题描述
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开始,所以索引需要做简单转换。