作为在Perl获得的随机数量从N M

任务。 在Perl,该程序需要得到整数之间的随机数N and M. 例如,需要得到一个数量从 16 ,如果投掷骰子。

为了做到这一点需要使用 rand()function.

这样的代码显示的随机数目之间的 1(含) 到 6 (也包括在内):

▶ Run
#!/usr/bin/perl

my $number = 1 + int(rand(6));

print $number;
  • rand(6) 将返回的一个小数从 0 (含)以 6 (但不包括数量 6).
  • int(rand(6)) 将返回的一个整数 05
  • 因为我们想要得到整数从 1 的结果 int(rand(6)) 需要加 1

在一般情况下,如果我们想要得到整数之间的随机数 $n$m,然后你需要的 写:

▶ Run
#!/usr/bin/perl

my $n = 1;
my $m = 6;

my $number = $n + int(rand( $m - $n + 1 ));
print $number;

相关的主题

其他文章