के रूप में पर्ल में यादृच्छिक संख्या से N करने के लिए एम

कार्य । पर्ल में, कार्यक्रम की आवश्यकताओं को प्राप्त करने के लिए एक पूर्णांक के बीच यादृच्छिक संख्या N और एम. उदाहरण के लिए, आप की जरूरत है पाने के लिए एक संख्या से 1 के लिए 6 के रूप में अगर पासा फेंक.

आदेश में ऐसा करने के लिए आप की जरूरत का उपयोग करने के लिए रैंड()समारोह.

यहाँ नमूना कोड प्रदर्शित करता है कि एक यादृच्छिक संख्या के बीच 1(समावेशी) करने के लिए 6 (भी शामिल है):

▶ Run
#!/usr/bin/perl

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

print $number;
  • rand(6) वापस आ जाएगी, एक आंशिक नंबर से 0 (समावेशी) के लिए 6 (लेकिन नहीं सहित संख्या 6).
  • int(rand(6)) में वापस आ जाएगी एक पूर्णांक से 0 के लिए 5
  • क्योंकि हम चाहते हैं पाने के लिए पूर्णांक से शुरू 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;

संबंधित विषयों

अन्य लेख