로 펄에서 얻을 임의로 수 N M

작업입니다. In Perl,프로그램를 받아야 합니다 정수 임의의 숫자 사이에 N M. 예를 들어,당신은 당신을 얻을 필요가에서 번호를 16 으로 주사위를 던지는 경우.

이를 위해서는 사용할 필요가 rand()함수.

여기에서 샘플 코드를 표시하는 무작위 숫자 사이 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;

관련 주제

다른 기사