とPerlの取得ランダム番号からN M

課題です。 Perlのプログラムを得る整数の乱数とNとM 例えば、必要な数値を取得します 16 が投ダイス

そのために利用する必要があり 、rand()関数.

ここではサンプルコードを表示する乱数との間 1(inclusive) に 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;

関連する話題

その他の記事