方案：创建随机范围 [英] Scheme: creating a random range

问题描述

在方案中，我必须使用random来定义一个不接受任何参数的过程，并返回1到10范围内的整数，包括但不能使用if。 im lost =（

In scheme I have to use random to define a procedure that accepts no arguments and returns an integer in the range 1 to 10, inclusive and i cant use if. im lost =(

推荐答案

如果您的Scheme提供随机函数，你想要

If your Scheme provides a random function, you want either

(define (1-10-rand)
    (+ 1 (random 10)))

或

(define (1-10-rand)
    (floor (* 10 (random))))

取决于你是否有（随机n） - > [0，n-1]中的整数）或（随机） - >浮在[0,1]

请注意，这不符合标准。对于绝对可移植性，请编写自己的RNG。

Be advised that this isn't standards-compliant. For absolute portability, write your own RNG.

这篇关于方案：创建随机范围的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！