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

tangclfs

于 2016-01-22 21:46:20 发布

阅读量338

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Scheme Ninety-Nine Scheme Problems 文章标签： scheme lisp

本文链接：https://blog.youkuaiyun.com/qq_17291647/article/details/50564410

Scheme 同时被 2 个专栏收录

34 篇文章

订阅专栏

Ninety-Nine Scheme Problems

34 篇文章

订阅专栏

本文介绍了一个使用Scheme语言实现的随机选择列表元素的算法。通过利用内置的随机数生成器及列表操作函数，该算法能够从给定列表中随机选择指定数量的元素。

问题描述

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