Perl Language
अनियमितता

टिप्पणियों

0 और 100 के बीच एक यादृच्छिक संख्या उत्पन्न करें

रैंड () फ़ंक्शन के लिए एक तर्क के रूप में एक ऊपरी सीमा पास करें।

इनपुट:

my $upper_limit = 100;
my $random = rand($upper_limit);

print $random . "\n";

आउटपुट:

एक यादृच्छिक फ्लोटिंग-पॉइंट संख्या, जैसे ...

45.8733038119139

0 और 9 के बीच एक यादृच्छिक पूर्णांक बनाएं

अपने रैंडम फ्लोटिंग-पॉइंट नंबर को इंट के रूप में कास्ट करें।

इनपुट:

my $range = 10;

# create random integer as low as 0 and as high as 9
my $random = int(rand($range));   # max value is up to but not equal to $range

print $random . "\n";

आउटपुट:

एक यादृच्छिक पूर्णांक, जैसे ...

0

रैंड के लिए भी देखें।

एक सरणी तत्व को यादृच्छिक पर एक्सेस करना

my @letters = ( 'a' .. 'z' );                # English ascii-bet

print $letters[ rand @letters ] for 1 .. 5;  # prints 5 letters at random

यह काम किस प्रकार करता है

• rand EXPR एक अदिश मान की अपेक्षा करता है, इसलिए @letters का मूल्यांकन अदिश संदर्भ में किया जाता है
• स्केलर संदर्भ में एक सरणी इसमें शामिल तत्वों की संख्या लौटाता है (इस मामले में 26)
• rand 26 अंतराल में एक यादृच्छिक भिन्न संख्या देता है 0 ≤ VALUE < 26 । (यह कभी 26 नहीं हो सकता)
• ऐरे इंडेक्स हमेशा पूर्णांक होते हैं, इसलिए $letters[rand @letters] $letters[int rand @letters]
• पर्ल सरणियाँ शून्य-अनुक्रमित हैं, इसलिए $array[rand @array] $array[0] $array[rand @array] $array[0] , $array[$#array] या बीच में एक तत्व देता है

(यही सिद्धांत हैश पर लागू होता है)

my %colors = ( red   => 0xFF0000,
               green => 0x00FF00,
               blue  => 0x0000FF,
             );

print ( values %colors )[rand keys %colors];