問題描述

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開始，所以索引需要做簡單轉換。

總結

以上是生活随笔為你收集整理的P23 (**) Extract a given number of randomly selected elements from a list.的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。