perl - 如何舍入数组中的十个随机数？

Question

尝试生成十个随机且没有小数点的数字。

我的@randoms = map { rand } (1..10)

此代码返回十个随机数，但带有小数点0.218220758325518。

我想四舍五入这些数字。

需要帮助。谢谢。

Answer 1

rand可以采用指定生成数的上界的参数。只需调用 int截断它:

my @randoms = map int rand 20, 1 .. 10;

它生成 0 .. 19 范围内的数字。